vba - 将邮件项目打印为 pdf

Question

我正在尝试将 Outlook 中文件夹中的所有邮件项目另存为 PDF。

Sub pdfConversion()
    Dim outApp As Object, objOutlook As Object, objFolder As Object, myItems As Object, myItem As Object
    Dim psName As String, pdfName As String

    Set outApp = CreateObject("Outlook.Application")
    Set objOutlook = outApp.GetNamespace("MAPI")
    Set objFolder = objOutlook.GetDefaultFolder(olFolderInbox).Folders("PDF Conversion")
    Set myItems = objFolder.Items

    For Each myItem In myItems
        myItem.PrintOut copies:=1, preview:=False, ActivePrinter:="Adobe PDF", printtofile:=True, _
        collate:=True, prtofilename:="C:\Users\lturner\Documents\" & myItem.Subject & ".pdf"
    Next myItem
End Sub

我使用的是 Outlook 2007，它没有将邮件另存为 PDF 的选项，因此我尝试使用 .PrintOut 方法。

使用上述内容，我当前收到“未找到命名参数”错误。我在互联网上的其他地方查看过，但似乎找不到解决方案。

Answer 1

我使用了 Krishna 发布的答案的组合和 Eugene Astafiev生成以下代码，该代码现在将从 myItem 中生成 PDF 文档。

Dim objDoc As Object, objInspector As Object
For Each myItem In myItems
    fileName = Replace(myItem.Subject, ":", "")
    Set objInspector = myItem.GetInspector
    Set objDoc = objInspector.WordEditor
    objDoc.ExportAsFixedFormat folderPath & fileName & ".pdf", 17
    Set objInspector = Nothing
    Set objDoc = Nothing
Next myItem

发布此内容是为了以后任何偶然发现该问题的人都可以看到使用 WordEditor 属性的工作代码。