如何用Python/VBA实现指定发件人新邮件自动下载Outlook附件

该需求完全可以通过Outlook VBA实现，响应延迟通常在3秒以内，完全满足收信后1分钟内完成附件下载的要求。

你当前使用的Python脚本是一次性遍历收件箱的静态逻辑，如果要实现实时监听需要加定时轮询，不仅会额外占用系统资源，轮询间隔设置过短还容易触发Outlook COM接口的访问限制。而VBA是Outlook原生支持的开发方式，可以直接绑定新邮件到达事件，新邮件投递到收件箱时自动触发逻辑，不需要轮询，稳定性和响应速度都更好。

VBA实现核心逻辑 #

• 依托Outlook内置的NewMailEx事件做触发，该事件会在新邮件抵达收件箱时立刻响应，直接返回新邮件的唯一条目ID，不需要遍历全量收件箱
• 触发后先校验发件人信息，匹配你设置的规则（比如发件人邮箱后缀为123@gmail.com、发件人名称包含inqube）
• 校验通过后自动创建对应存储目录，按规则保存邮件内所有附件
• 代码需要写入Outlook的ThisOutlookSession模块，同时调整宏安全级别为“通知所有宏”，或给宏添加数字签名，避免代码被Outlook默认禁用。

可直接复用的VBA示例代码 #

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim objItem As Object
    Dim objMail As MailItem
    Dim outputDir As String
    Dim targetFolder As String
    Dim objAtt As Attachment
    Dim arrEntryIDs As Variant
    Dim i As Integer
    
    ' 配置附件根存储路径，可自行修改为目标目录
    outputDir = Environ("USERPROFILE") & "\Documents\Output\"
    If Dir(outputDir, vbDirectory) = "" Then MkDir outputDir
    
    ' 兼容同时收到多封邮件的场景
    arrEntryIDs = Split(EntryIDCollection, ",")
    For i = LBound(arrEntryIDs) To UBound(arrEntryIDs)
        Set objItem = Application.Session.GetItemFromID(arrEntryIDs(i))
        ' 仅处理普通邮件，跳过会议邀请、任务等其他类型条目
        If objItem.Class = olMail Then
            Set objMail = objItem
            ' 匹配预设的发件人规则
            If LCase(objMail.SenderEmailAddress) Like "*123@gmail.com" And InStr(LCase(objMail.SenderName), "inqube") > 0 Then
                ' 清理邮件主题里的Windows非法文件名字符，避免创建文件夹报错
                Dim safeSubject As String
                safeSubject = objMail.Subject
                safeSubject = Replace(safeSubject, "\", "")
                safeSubject = Replace(safeSubject, "/", "")
                safeSubject = Replace(safeSubject, ":", "")
                safeSubject = Replace(safeSubject, "*", "")
                safeSubject = Replace(safeSubject, "?", "")
                safeSubject = Replace(safeSubject, """", "")
                safeSubject = Replace(safeSubject, "<", "")
                safeSubject = Replace(safeSubject, ">", "")
                safeSubject = Replace(safeSubject, "|", "")
                
                targetFolder = outputDir & safeSubject & "\"
                If Dir(targetFolder, vbDirectory) = "" Then MkDir targetFolder
                
                ' 遍历保存附件，跳过小于1KB的内嵌签名图片类隐藏附件
                For Each objAtt In objMail.Attachments
                    If objAtt.Size > 1024 Then
                        objAtt.SaveAsFile targetFolder & objAtt.FileName
                    End If
                Next
            End If
        End If
    Next i
    
    Set objAtt = Nothing
    Set objMail = Nothing
    Set objItem = Nothing
End Sub

补充说明 #

• 上述代码已经做了文件名非法字符过滤、内嵌签名附件过滤的处理，容错性比你现有Python脚本更好
• 只要Outlook保持后台运行，新邮件到达后就会自动执行附件保存逻辑，不需要手动触发
• 你现有Python脚本存在两处可修复的逻辑问题：一是if(str(sender).__contains__("inqube"))行缩进不匹配，运行会直接报错；二是elif (target_folder.exists)里的exists是类方法，需要加括号调用才会返回布尔值。如果后续仍想用Python实现，也可以参考VBA的事件监听逻辑，用win32com绑定新邮件事件做触发，不需要轮询。

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