Outlook多账户环境下发送前校验发件地址的实现方法

我帮你把这个宏完善成支持多个禁用地址的版本，刚好匹配你有两个仅接收账户的需求，核心思路是用数组存禁用地址，再逐个对比当前发件地址：

完整代码示例 #

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    ' 定义禁用的发件地址数组，把你的两个仅接收账户邮箱填进去
    Dim badAddresses As Variant
    badAddresses = Array("bad.email1@gmail.com", "bad.email2@outlook.com")
    
    Dim badAddr As Variant
    Dim isBadAddress As Boolean
    isBadAddress = False
    
    ' 遍历禁用地址，用StrComp做不区分大小写的字符串比较
    For Each badAddr In badAddresses
        If StrComp(Item.SenderEmailAddress, badAddr, vbTextCompare) = 0 Then
            isBadAddress = True
            Exit For ' 找到匹配项就跳出循环，不用继续检查
        End If
    Next badAddr
    
    ' 如果检测到禁用地址，弹出警告并取消发送
    If isBadAddress Then
        MsgBox "警告：你正在尝试从仅接收的账户发送邮件！请切换到正确的发件账户后重新发送。", vbExclamation + vbOKOnly, "发件账户错误"
        Cancel = True ' 直接阻止邮件发送
    End If
End Sub

代码关键说明 #

• 数组存储禁用地址：把你那两个仅接收的邮箱地址替换到badAddresses数组里，后续要新增禁用地址直接往数组里加就行，非常灵活
• 不区分大小写对比：StrComp的第三个参数vbTextCompare会忽略邮箱地址的大小写差异，避免因为大小写输入不同导致漏检
• 警告+拦截发送：一旦检测到禁用地址，立刻弹出醒目的警告框，同时通过Cancel = True直接阻止邮件发送，彻底避免误发风险

部署和启用步骤 #

1. 打开Outlook，按下Alt + F11快速打开VBA编辑器
2. 在左侧项目窗口里找到并双击ThisOutlookSession模块
3. 把上面的代码粘贴进去，替换掉你原来的单个地址版本
4. 保存后，调整Outlook的宏安全设置（路径：文件→选项→信任中心→信任中心设置→宏设置），选择“通知我签署的宏，所有其他宏禁用”或者临时选择“启用所有宏”（测试用，长期建议用签名宏更安全）
5. 重启Outlook后，这个宏就会自动生效了

测试方法 #

切换到你设置的仅接收账户，尝试发送一封邮件，应该会立刻弹出警告框，邮件也不会被发送出去，完美达到你的需求~

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