使用Outlook VBA调用Adobe PDFMaker转邮件为PDF时保存报错求助

每日需将固定4封邮件通过Microsoft Outlook的Adobe PDFMaker插件转换为包含日期的指定名称PDF。编写VBA宏后可正常调用该插件，但保存时弹出“An Error Occurred while saving the Adobe PDF File”错误，不确定是代码问题还是保存环节问题，附相关宏代码（方括号内容为隐私替换项）：

Sub SaveEmailsAsPDFWithPDFMaker()

    ' Object variables
    Dim objMail As MailItem
    Dim pdfMaker As Object
    ' String variables
    Dim pdfFileName As String
    Dim savePath As String
    Dim fullSavePath As String
    Dim emailReceivedDate As String
    Dim emailSubject As String
    ' Integer variables
    Dim i As Integer
    Dim emailCount As Integer

    ' Define the save path
    savePath = "C:\Users\[me]\Documents\macro test\"

    ' Get the PDFMaker object from COM add-ins
    On Error Resume Next
    Set pdfMaker = Application.COMAddIns.Item("PDFMOutlook.PDFMOutlook").Object
    On Error GoTo 0

    ' send message if PDFMaker is not available
    If pdfMaker Is Nothing Then
        MsgBox "PDFMaker add-in is not available.", vbCritical
        Exit Sub
    End If

    ' Get the count of selected emails
    emailCount = Application.ActiveExplorer.Selection.Count

    ' Loop through selected emails
    For i = 1 To emailCount
        If TypeOf Application.ActiveExplorer.Selection.Item(i) Is MailItem Then
            Set objMail = Application.ActiveExplorer.Selection.Item(i)

            ' Get the subject of the email
            emailSubject = objMail.Subject
            Debug.Print "Processing email: " & emailSubject

            ' Get the received date of the email in the desired format
            emailReceivedDate = Format(objMail.ReceivedTime, "m-d-yy")
            Debug.Print "Received date: " & emailReceivedDate

            ' Generate the file name based on the subject line
            If Left(emailSubject, 47) = "[Email 1 Subject]" Then
                pdfFileName = "[Email 1] " & emailReceivedDate & ".pdf"
            ElseIf Left(emailSubject, 14) = "[Email 2 Subject]" Then
                pdfFileName = "[Email 2] " & emailReceivedDate & ".pdf"
            ElseIf Left(emailSubject, 18) = "[Email 3 Subject]" Then
                pdfFileName = "[Email 3] " & emailReceivedDate & ".pdf"
            ElseIf Left(emailSubject, 17) = "[Email 4 Subject]" Then
                pdfFileName = "[Email 4] " & emailReceivedDate & ".pdf"
            Else
                MsgBox "Email '" & emailSubject & "' does not match expected subject formats.", vbExclamation
                GoTo ContinueLoop
            End If

            ' Convert email to PDF and save
            On Error Resume Next
            pdfMaker.CreatePDF savePath & pdfFileName
            
            'Error message if it fails to convert
            If Err.Number <> 0 Then
                MsgBox "Failed to convert email '" & emailSubject & "' to PDF. Error " & Err.Number & ": " & Err.Description, vbCritical
                Err.Clear
            End If
            On Error GoTo 0


ContinueLoop:
        End If
    Next i

    MsgBox "Selected emails have been processed.", vbInformation
End Sub

• 检查保存路径权限
  确认savePath指向的文件夹（C:\Users\[me]\Documents\macro test\）有读写权限：右键文件夹→属性→安全，确保当前用户拥有「完全控制」或「修改」权限。若使用网络路径，需额外检查网络连接和共享权限。

• 修正PDFMaker调用逻辑
  原代码未明确指定要转换的邮件对象，这是核心问题。PDFMaker的CreatePDF方法需要先绑定目标邮件，修改转换部分代码如下：

  ' 激活当前邮件，确保PDFMaker能识别目标对象
  objMail.Display
  ' 调用CreatePDF，参数依次为：保存路径、是否提示覆盖、是否打开生成的PDF
  pdfMaker.CreatePDF savePath & pdfFileName, True, False
  ' 可选：关闭邮件窗口，根据需求调整
  objMail.Close olSave
  

• 过滤文件名非法字符
  Windows文件名禁止包含/ \ : * ? " < > |，需提前清理邮件主题中的此类字符：

  ' 在生成pdfFileName前添加字符过滤逻辑
  Dim invalidChars As String
  invalidChars = "/\:*?""<>|"
  Dim j As Integer
  For j = 1 To Len(invalidChars)
      emailSubject = Replace(emailSubject, Mid(invalidChars, j, 1), "")
  Next j
  

• 验证PDFMaker兼容性
  确保Adobe PDFMaker插件为最新版本，且与Outlook版本匹配。可尝试：

  • 打开Adobe Acrobat→帮助→修复安装
  • 在Outlook的「COM加载项」中禁用PDFMaker，重启后重新启用

• 增强错误日志定位
  原错误捕获信息不足，可添加详细日志输出：

  ' 替换原转换部分的错误处理代码
  On Error GoTo PDFErrorHandler
  objMail.Display
  pdfMaker.CreatePDF savePath & pdfFileName, True, False
  objMail.Close olSave
  GoTo SkipError
  

PDFErrorHandler:
Debug.Print "转换失败 - 邮件主题: " & emailSubject & " 错误号: " & Err.Number & " 描述: " & Err.Description
MsgBox "转换邮件 '" & emailSubject & "' 失败。错误号: " & Err.Number & " 描述: " & Err.Description, vbCritical
SkipError:
On Error GoTo 0

内容的提问来源于stack exchange，提问作者Michael Yao