嗨Wayne，这个需求用Outlook自带的VBA宏就能轻松实现，我帮不少用户配置过类似功能，步骤清晰易操作，下面给你两种可行方案：

方案一：发送邮件时直接保存（实时触发） #

这种方式会在你点击发送按钮后立刻保存邮件，适合想要即时备份的场景：

1. 打开Outlook的VBA编辑器：

   • 按下快捷键Alt + F11直接打开；
   • 或者通过「文件>选项>自定义功能区」，勾选「开发工具」，然后点击顶部菜单栏的「开发工具>Visual Basic」。

2. 在左侧项目面板中，找到你的Outlook账户对应的项目（通常是Project1），双击打开ThisOutlookSession模块。

3. 粘贴以下代码到代码窗口，记得修改保存路径：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim savePath As String
    Dim fileName As String
    Dim fso As Object
    
    ' 替换成你的目标保存目录，结尾必须加斜杠
    savePath = "C:\Your\Target\Folder\"
    
    ' 检查目录是否存在，不存在则自动创建
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(savePath) Then
        fso.CreateFolder savePath
    End If
    
    ' 生成唯一文件名：邮件主题+发送时间，避免重名
    ' 替换文件名不允许的特殊字符
    fileName = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Item.Subject, "/", "-"), "\", "-"), ":", "-"), "*", "-"), "?", "-"), """", "-"), "<", "-"), ">", "-"), "|", "-")
    fileName = fileName & " - " & Format(Item.SentOn, "yyyy-mm-dd hh-mm-ss") & ".txt"
    
    ' 保存为文本文件（olTXT对应常量0，也可以直接写0）
    Item.SaveAs savePath & fileName, olTXT
    
    Set fso = Nothing
End Sub

4. 配置宏安全设置：

   • 点击「开发工具>宏安全性」，选择「通知我签署的宏，或者所有未签署的宏」；
   • 如果你信任自己的代码，也可以选择「启用所有宏」（注意：仅对可信代码使用此选项，避免安全风险）。

5. 重启Outlook后，发送一封测试邮件，检查目标目录是否生成了对应的TXT文件。

方案二：邮件到达已发送文件夹时保存 #

这种方式会在邮件成功投递到「已发送邮件」文件夹后触发，适合处理需要确认发送成功的场景：

1. 同样打开ThisOutlookSession模块，粘贴以下代码：

Private WithEvents SentItems As Items

Private Sub Application_Startup()
    Dim ns As Namespace
    Set ns = Application.GetNamespace("MAPI")
    ' 绑定已发送邮件文件夹的事件监听
    Set SentItems = ns.GetDefaultFolder(olFolderSentMail).Items
End Sub

Private Sub SentItems_ItemAdd(ByVal Item As Object)
    Dim savePath As String
    Dim fileName As String
    Dim fso As Object
    
    savePath = "C:\Your\Target\Folder\"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(savePath) Then
        fso.CreateFolder savePath
    End If
    
    fileName = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Item.Subject, "/", "-"), "\", "-"), ":", "-"), "*", "-"), "?", "-"), """", "-"), "<", "-"), ">", "-"), "|", "-")
    fileName = fileName & " - " & Format(Item.SentOn, "yyyy-mm-dd hh-mm-ss") & ".txt"
    
    Item.SaveAs savePath & fileName, olTXT
    
    Set fso = Nothing
End Sub

2. 同样配置宏安全设置并重启Outlook，测试即可。

注意事项 #

• 代码中的savePath必须以斜杠结尾，否则会导致文件名拼接错误；
• 邮件主题中的特殊字符（如/\:*?"<>|）会被替换为-，避免生成无效文件名；
• 如果代码报错提示olTXT未定义，直接把olTXT替换为数字0即可；
• 确保目标目录有写入权限，否则会保存失败。

备注：内容来源于stack exchange，提问作者Wayne Walton