如何用VBA将Outlook中的PDF文档项保存至本地文件路径

要导出Outlook收件箱中手动存入的DocumentItem类型PDF，可通过读取其MAPI属性中的二进制数据实现，具体Excel VBA代码如下：

核心思路 #

DocumentItem类型的文件内容存储在MAPI属性PR_ATTACH_DATA_BIN（属性标签：http://schemas.microsoft.com/mapi/proptag/0x37010102）中，通过Outlook的PropertyAccessor对象读取该属性的二进制数据，再写入本地文件即可。

VBA代码示例 #

Sub SaveOutlookDocumentItemToPDF()
    Dim olApp As Object
    Dim olNamespace As Object
    Dim olInbox As Object
    Dim olItem As Object
    Dim propAccessor As Object
    Dim binData As Variant
    Dim savePath As String
    Dim fileNum As Integer
    
    ' 目标保存路径（确保文件夹已创建）
    savePath = "C:\YourTargetFolder\SavedPDF.pdf"
    
    ' 启动Outlook应用（后期绑定，无需额外引用对象库）
    Set olApp = CreateObject("Outlook.Application")
    Set olNamespace = olApp.GetNamespace("MAPI")
    ' 获取默认收件箱（6对应olFolderInbox常量）
    Set olInbox = olNamespace.GetDefaultFolder(6)
    
    ' 遍历收件箱内项目
    For Each olItem In olInbox.Items
        ' 筛选DocumentItem类型（类别41）
        If olItem.Class = 41 Then
            Set propAccessor = olItem.PropertyAccessor
            ' 读取文件二进制数据
            binData = propAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x37010102")
            
            ' 将二进制数据写入本地文件
            fileNum = FreeFile
            Open savePath For Binary Access Write As #fileNum
            Put #fileNum, , binData
            Close #fileNum
            
            MsgBox "PDF已保存至：" & savePath
            Exit For ' 找到第一个目标文件后退出，如需批量处理可删除此行
        End If
    Next olItem
    
    ' 释放对象
    Set olItem = Nothing
    Set olInbox = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
End Sub

注意事项 #

• 运行前确认目标文件夹已存在，否则会触发文件路径错误；
• 若需批量导出多个DocumentItem，需修改文件名规则避免重复覆盖；
• Outlook可能弹出安全授权提示，需允许程序访问邮件数据；
• 若使用早期绑定，可在VBA编辑器中引用Microsoft Outlook XX.X Object Library，再将对象声明改为Dim olApp As Outlook.Application等形式。

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