如何通过Outlook规则结合VBA获取触发规则的邮件发件人信息

当然可以！通过规则触发的VBA脚本完全能直接拿到触发它的邮件对象，而且对你用的POP3协议也完全适配，之前Application_NewMail()没用的原因我也会给你说明，先看具体实现步骤：

1. 编写接收邮件对象的VBA脚本 #

打开Outlook的VBA编辑器（按Alt + F11），在ThisOutlookSession模块里添加以下代码：

Sub GetSenderEmailFromRule(olMail As MailItem)
    ' 获取发件人邮箱地址
    Dim senderEmail As String
    senderEmail = olMail.SenderEmailAddress
    
    ' 这里可以添加你需要的后续处理逻辑，比如打印到立即窗口测试
    Debug.Print "触发规则的邮件发件人：" & senderEmail
    
    ' 可选：如果需要只处理特定账户的邮件，可添加账户判断
    Dim targetAccount As String
    targetAccount = "你的目标邮箱账户@xxx.com" ' 替换成你要处理的那个账户邮箱
    If olMail.Parent.Parent.DefaultStore.DisplayName = targetAccount Then
        ' 这里写针对该账户邮件的专属处理
        Debug.Print "来自目标账户的邮件，发件人：" & senderEmail
    End If
End Sub

2. 配置规则调用该脚本 #

创建或编辑你的规则时，在“操作”步骤选择**“运行脚本”**，然后从列表里选中你刚才写的GetSenderEmailFromRule脚本即可。这样每当符合规则的邮件进来，脚本就会自动接收对应的MailItem对象。

为什么Application_NewMail()没生效？ #

这个事件确实不太适配POP3账户的场景：

• NewMail事件不会传递具体的邮件对象，你需要自己去收件箱里找最新邮件，很容易出错（比如多邮件同时进来时）
• POP3协议的邮件同步机制可能导致事件触发不及时，甚至完全不触发
• 它无法区分是哪个账户的邮件，对你的双账户场景来说不够精准

注意事项 #

• 确保Outlook的宏设置已经启用：依次点击“文件”→“选项”→“信任中心”→“信任中心设置”→“宏设置”，选择“启用所有宏”（或者更安全的“启用签署的宏”，同时给你的VBA项目签名）
• 如果你把脚本放在其他模块而不是ThisOutlookSession，需要确保模块是公共的（默认新建的模块就是公共的）

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