如何在Microsoft Outlook 365桌面版实现收件人超量发送确认提示？

要解决误发大量收件人引发的隐私问题，可通过Outlook VBA宏实现发送前的确认提示，步骤如下：

1. 打开VBA编辑器 #

• 按下快捷键 Alt + F11 直接启动
• 或通过界面操作：文件 → 选项 → 自定义功能区 → 勾选「开发工具」，切换到「开发工具」选项卡点击「Visual Basic」按钮

2. 创建宏模块 #

在左侧「项目」窗格中，右键点击 VBAProject(Outlook.otm) → 插入 → 模块

3. 粘贴宏代码 #

将以下代码粘贴到新建模块中：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim recips As Outlook.Recipients
    Dim recipCount As Integer
    
    ' 仅对邮件类对象生效
    If TypeName(Item) <> "MailItem" Then Exit Sub
    
    Set recips = Item.Recipients
    recipCount = recips.Count
    
    ' 收件人总数超过10时触发确认
    If recipCount > 10 Then
        Dim response As VbMsgBoxResult
        response = MsgBox("确定要发送吗？(n/Y)", vbYesNo + vbQuestion, "收件人数量超限提醒")
        
        ' 选择N则取消发送
        If response = vbNo Then
            Cancel = True
        End If
    End If
    
    Set recips = Nothing
End Sub

4. 启用宏支持 #

Outlook默认禁用宏，需调整设置：

• 文件 → 选项 → 信任中心 → 信任中心设置 → 宏设置
• 选择「启用所有宏（不推荐；仅运行信任的代码）」，同时勾选「信任对VBA项目对象模型的访问」

自定义扩展（可选） #

若只需针对Cc栏收件人数量判断，可修改统计逻辑：

' 替换原统计代码为以下内容
Dim recip As Outlook.Recipient
Dim ccCount As Integer
ccCount = 0

For Each recip In recips
    If recip.Type = olCC Then ' olCC对应值为2
        ccCount = ccCount + 1
    End If
Next

If ccCount > 10 Then
    ' 弹出确认框逻辑不变
End If

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