Outlook VBA脚本需求：下载指定邮件附件并移至子文件夹

直接修改现有VBA脚本，加入特定发件人校验和邮件移动逻辑，就能实现先下载TXT附件、再移动邮件的需求，无需遍历整个文件夹。修改后的完整代码如下：

Public Sub SaveAttachAndMoveMail(item As Outlook.MailItem)
    Dim object_attachment As Outlook.Attachment
    Dim saveFolder As String
    Dim targetFolder As Outlook.Folder
    Dim specificSender As String
    
    ' 配置参数：修改为你的目标路径、特定发件人邮箱、目标子文件夹路径
    saveFolder = "P:\Shared Works\Catch Reports"
    specificSender = "sender@example.com" ' 替换为目标发件人的邮箱地址
    Set targetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders("已处理TXT邮件") ' 替换为你的子文件夹名称
    
    ' 1. 校验发件人是否符合要求
    If item.SenderEmailAddress <> specificSender Then
        Exit Sub ' 不是目标发件人，直接退出
    End If
    
    ' 2. 下载TXT格式附件
    For Each object_attachment In item.Attachments
        ' 严格匹配后缀为.txt的附件（避免文件名含txt但不是TXT文件的情况）
        If LCase(Right(object_attachment.DisplayName, 4)) = ".txt" Then
            object_attachment.SaveAsFile saveFolder & "\" & object_attachment.DisplayName
        End If
    Next
    
    ' 3. 移动邮件到指定子文件夹
    If Not targetFolder Is Nothing Then
        item.Move targetFolder
    End If
End Sub

关键修改说明： #

• 特定发件人校验：通过item.SenderEmailAddress直接判断当前邮件的发件人，不符合则直接退出脚本
• 精准附件匹配：改用LCase(Right(...))判断后缀，避免匹配到文件名中包含txt但不是TXT格式的附件
• 直接移动当前邮件：利用item.Move方法直接操作传入的邮件对象，无需遍历文件夹，保证下载完成后再执行移动

使用步骤： #

1. 打开Outlook的VBA编辑器（按Alt + F11），将原SaveAutoAttach替换为上述代码
2. 打开Outlook规则设置，新建规则：
   • 选择“对我接收的邮件应用规则”
   • 无需设置发件人/附件条件（脚本内已做校验，也可额外加规则条件双重过滤）
   • 选择“运行脚本”，指定为SaveAttachAndMoveMail
3. 保存规则后，符合条件的邮件会自动完成附件下载+邮件移动操作

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