用VBA保存和转换Outlook附件

Sub SaveAttachments()
    Dim objNamespace As Outlook.Namespace
    Dim objFolder As Outlook.MAPIFolder
    Dim objItem As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim saveFolder As String
    
    ' 设置保存附件的文件夹路径
    saveFolder = "C:\Attachments\"
    
    ' 获取Outlook应用程序的命名空间
    Set objNamespace = Application.GetNamespace("MAPI")
    
    ' 获取收件箱文件夹
    Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
    
    ' 遍历收件箱中的每封邮件
    For Each objItem In objFolder.Items
        ' 只处理邮件类型的对象
        If objItem.Class = olMail Then
            ' 遍历邮件中的每个附件
            For Each objAttachment In objItem.Attachments
                ' 保存附件到指定文件夹
                objAttachment.SaveAsFile saveFolder & objAttachment.FileName
            Next objAttachment
        End If
    Next objItem
    
    ' 释放对象
    Set objAttachment = Nothing
    Set objItem = Nothing
    Set objFolder = Nothing
    Set objNamespace = Nothing
    
    MsgBox "附件保存完成！"
End Sub

Sub ConvertAttachmentsToPDF()
    Dim objNamespace As Outlook.Namespace
    Dim objFolder As Outlook.MAPIFolder
    Dim objItem As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim saveFolder As String
    
    ' 设置保存附件的文件夹路径
    saveFolder = "C:\Attachments\"
    
    ' 获取Outlook应用程序的命名空间
    Set objNamespace = Application.GetNamespace("MAPI")
    
    ' 获取收件箱文件夹
    Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
    
    ' 遍历收件箱中的每封邮件
    For Each objItem In objFolder.Items
        ' 只处理邮件类型的对象
        If objItem.Class = olMail Then
            ' 遍历邮件中的每个附件
            For Each objAttachment In objItem.Attachments
                ' 保存附件到指定文件夹
                objAttachment.SaveAsFile saveFolder & objAttachment.FileName
                
                ' 将附件转换为PDF格式
                If Right(objAttachment.FileName, 3) = "pdf" Then
                    ' 如果附件已经是PDF格式，则跳过转换
                    Continue For
                End If
                
                ' 使用Aspose.Email库将附件转换为PDF格式
                Dim doc As New Aspose.Email.Mail.Attachment(objAttachment.FileName)
                doc.Save(saveFolder & Replace(objAttachment.FileName, ".", "_") & ".pdf", Aspose.Email.Mail.SaveOptions.DefaultPdf)
            Next objAttachment
        End If
    Next objItem
    
    ' 释放对象
    Set objAttachment = Nothing
    Set objItem = Nothing
    Set objFolder = Nothing
    Set objNamespace = Nothing
    
    MsgBox "附件转换完成！"
End Sub