vba outlook批量保存附件

在VBA (Visual Basic for Applications) 中，可以编写宏来批量保存Outlook邮件中的附件。这通常用于自动化处理大量邮件并提取其附件。以下是创建一个基本脚本的一个步骤：

1. **启用VBA**：首先，你需要在Outlook中启用宏功能，转到"文件" -> "选项" -> "信任中心" -> "宏设置"，然后选择"启用所有宏"。

2. **创建新模块**：在VBA编辑器中，选择"插入" -> "模块"，新建一个VBA模块来编写你的代码。

3. **编写代码**：

Sub SaveAttachments()
    Dim olApp As Outlook.Application
    Dim olNs As Namespace
    Dim olFolder As MAPIFolder
    Dim olMailItem As Object
    Dim i As Long
    
    ' 创建对象实例
    Set olApp = New Outlook.Application
    Set olNs = olApp.GetNamespace("MAPI")
    
    ' 设置需要搜索的文件夹（如收件箱）
    Set olFolder = olNs.GetDefaultFolder(olFolderInbox)
    
    ' 遍历每封邮件并保存附件
    For Each olMailItem In olFolder.Items
        If olMailItem.Attachments.Count > 0 Then
            For i = 1 To olMailItem.Attachments.Count
                olMailItem.Attachments.Item(i).SaveAsFile "C:\Temp\" & olMailItem.Attachments.Item(i).Name
            Next i
        End If
    Next olMailItem
    
    ' 清理内存
    Set olMailItem = Nothing
    Set olFolder = Nothing
    Set olNs = Nothing
    Set olApp = Nothing
End Sub

这个脚本会循环遍历指定文件夹内的所有邮件，并将每个邮件中的附件保存到"C:\Temp\"路径下。

4. **运行宏**：在VBA编辑器中，你可以点击"立即窗口"按钮（工具栏上的三角形图标），输入`SaveAttachments`并按回车键运行它。