如何拦截Outlook的SEND操作，对收件人进行二次验证确认？

你的需求是可行的，但桌面版和网页版Outlook 365的实现方式不同，以下是具体方案：

桌面版Outlook实现 #

方案1：Python + pywin32 #

利用pywin32库监听Outlook的ItemSend事件（发送邮件前触发），实现收件人检查和发送拦截：

1. 安装依赖

pip install pywin32

2. 编写监听脚本

import win32com.client
import pythoncom
import win32api

# 替换为你的监控收件人列表（支持邮箱地址或联系人名称）
MONITOR_LIST = ["target1@company.com", "target2@company.com"]

class OutlookSendHandler:
    def OnItemSend(self, mail_item, cancel):
        # 收集所有收件人的地址/名称（统一转小写避免大小写问题）
        all_recipients = []
        for rec in mail_item.Recipients:
            try:
                all_recipients.append(rec.Address.lower())
            except:
                # 处理无法获取邮箱地址的联系人名称
                all_recipients.append(rec.Name.lower())
        
        # 检查是否存在监控列表中的收件人
        has_match = any(rec in MONITOR_LIST for rec in all_recipients)
        if has_match:
            # 弹出确认对话框，用户点击"取消"则终止发送
            confirm_result = win32api.MessageBox(0, "检测到收件人在监控列表中，确认发送吗？", "发送确认", 1)
            if confirm_result == 2:
                cancel = True

def main():
    pythoncom.CoInitialize()
    # 绑定Outlook应用和事件处理器
    win32com.client.DispatchWithEvents("Outlook.Application", OutlookSendHandler)
    print("收件人监控已启动，保持窗口运行...")
    # 保持脚本运行以监听事件
    pythoncom.PumpMessages()

if __name__ == "__main__":
    main()

3. 使用说明

• 运行脚本后，Outlook的发送操作会被监听，脚本需保持运行状态；
• 可将脚本打包为exe，设置开机自启后台运行。

方案2：VBA（原生集成） #

Outlook原生支持VBA拦截发送事件，无需额外运行外部程序：

1. 打开VBA编辑器
   打开Outlook，按下Alt + F11进入VBA编辑器，双击左侧导航栏的ThisOutlookSession模块。

2. 编写VBA代码

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim monitorList As Variant
    Dim rec As Recipient
    Dim isMatch As Boolean
    Dim recValue As String
    
    ' 替换为你的监控收件人列表
    monitorList = Array("target1@company.com", "target2@company.com")
    isMatch = False
    
    ' 遍历所有收件人（To/CC/BCC）
    For Each rec In Item.Recipients
        On Error Resume Next
        recValue = LCase(rec.Address)
        ' 若无法获取邮箱地址，改用联系人名称匹配
        If Err.Number <> 0 Then
            recValue = LCase(rec.Name)
            Err.Clear
        End If
        On Error GoTo 0
        
        ' 检查是否在监控列表中
        If IsInList(recValue, monitorList) Then
            isMatch = True
            Exit For
        End If
    Next rec
    
    ' 匹配时弹出确认，用户选择"否"则取消发送
    If isMatch Then
        If MsgBox("检测到收件人在监控列表中，确认发送吗？", vbYesNo + vbExclamation, "发送确认") = vbNo Then
            Cancel = True
        End If
    End If
End Sub

' 辅助函数：检查字符串是否在数组中
Private Function IsInList(targetStr As String, checkArray As Variant) As Boolean
    Dim elem As Variant
    For Each elem In checkArray
        If targetStr = LCase(elem) Then
            IsInList = True
            Exit Function
        End If
    Next elem
    IsInList = False
End Function

3. 启用宏
   进入Outlook选项 → 信任中心 → 信任中心设置 → 宏设置，选择"启用所有宏"或"通知我有关数字签署的宏..."，确保VBA代码能正常运行。

网页版Outlook 365实现 #

网页版无法使用pywin32或VBA，需通过Power Automate实现：

方案：Power Automate审批流 #

1. 创建流
   进入Power Automate，新建"云流"，选择触发条件为当用户发送邮件 (V3)。

2. 添加检查逻辑

• 添加"获取邮件收件人"动作，提取To、CC、BCC字段；
• 添加"条件"动作，检查是否有收件人存在于你的监控列表中；
• 若条件满足，添加**"发送审批"**动作，将审批请求发送给自己，设置审批选项为"批准/拒绝"；
• 分支设置：
  • 批准：继续执行发送邮件动作；
  • 拒绝：取消邮件发送（可添加"发送邮件通知"告知自己邮件已取消）。

3. 使用说明
   发送邮件后，会收到审批请求，仅当你批准后邮件才会发出，拒绝则终止发送。

内容的提问来源于stack exchange，提问作者Dario de Judicibus