请求实现Outlook邮件附件按合规主题名自动保存至文件夹

完全可以实现这个流程的自动化，最便捷的方式是利用Outlook内置的VBA脚本，以下是具体实现步骤：

一、编写VBA脚本 #

1. 打开Outlook，按下Alt+F11打开VBA编辑器
2. 在左侧项目窗口右键点击Project1，选择插入 > 模块
3. 将以下代码粘贴到模块窗口中：

Sub SaveAttachmentsToFolder()
    Dim olApp As Outlook.Application
    Dim olNS As Outlook.Namespace
    Dim olFolder As Outlook.MAPIFolder
    Dim olMail As Outlook.MailItem
    Dim olAttachment As Outlook.Attachment
    Dim savePath As String
    Dim folderName As String
    Dim invalidChars As Variant
    Dim char As Variant
    
    ' 替换为你的附件保存根路径
    savePath = "C:\Outlook Attachments\"
    
    Set olApp = New Outlook.Application
    Set olNS = olApp.GetNamespace("MAPI")
    ' 这里默认处理收件箱，可修改为指定文件夹（如已归档文件夹）
    Set olFolder = olNS.GetDefaultFolder(olFolderInbox)
    
    ' 定义Windows文件名禁止使用的字符
    invalidChars = Array("/", "\", ":", "*", "?", """", "<", ">", "|")
    
    For Each olMail In olFolder.Items
        ' 仅处理带附件的邮件
        If olMail.Attachments.Count > 0 Then
            ' 清洗邮件主题，替换非法字符为下划线
            folderName = olMail.Subject
            For Each char In invalidChars
                folderName = Replace(folderName, char, "_")
            Next char
            
            ' 创建以清洗后主题命名的文件夹（不存在则创建）
            If Dir(savePath & folderName, vbDirectory) = "" Then
                MkDir savePath & folderName
            End If
            
            ' 保存所有附件到目标文件夹
            For Each olAttachment In olMail.Attachments
                olAttachment.SaveAsFile savePath & folderName & "\" & olAttachment.FileName
            Next olAttachment
        End If
    Next olMail
    
    ' 释放资源
    Set olAttachment = Nothing
    Set olMail = Nothing
    Set olFolder = Nothing
    Set olNS = Nothing
    Set olApp = Nothing
    
    MsgBox "附件批量保存完成！"
End Sub

二、配置与使用 #

1. 修改代码中的savePath为你实际的保存路径（例如"D:\Received Attachments\"）
2. 直接运行脚本：在VBA编辑器中点击工具栏的运行按钮（绿色三角），即可批量处理目标文件夹中的邮件附件
3. 自动触发（可选）：如果需要收到新邮件时自动保存附件，可设置Outlook规则：
   • 点击文件 > 管理规则和通知 > 新建规则
   • 选择“对我接收的邮件应用规则”，点击下一步
   • 勾选“带有附件”，点击下一步
   • 勾选“运行脚本”，在下拉列表中选择SaveAttachmentsToFolder，点击完成

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