如何在发送 Outlook 邮件前获取提示或确认？

你是否曾在 Outlook 中点击发送后，才发现遗漏了重要信息、附加了错误的文件，或出现了令人尴尬的错误？为避免这些问题，你可以设置 Outlook 在点击发送按钮时弹出确认对话框。这样，你就能获得再次检查邮件内容的机会，确保万无一失后再发送。本文将为你详细介绍如何通过简单的 VBA 方案轻松实现这一功能。

使用 VBA 代码在发送邮件前获得提示或确认

---

使用 VBA 代码在发送邮件前获得提示或确认

下面的 VBA 代码可让 Outlook 在每次你尝试发送邮件时弹出确认提示，帮助你再次核对邮件内容。

1. 按下 “Alt” + “F11” 组合键，即可打开 “Microsoft Visual Basic for Applications” 窗口。

2. 在 VBA 窗口左侧，定位到“项目资源管理器”面板，在“Project 1 （VbaProject.OTM）”下双击“Microsoft Outlook Objects”，然后双击“ThisOutlookSession”以打开其代码窗口。

3. 请将以下 VBA 代码复制并粘贴到已打开的窗口中：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim xPrompt As String
    Dim xOkOrCancel As Integer
    On Error Resume Next
    
    xPrompt = "Do you want to continue sending this email?"
    xOkOrCancel = MsgBox(xPrompt, vbOKCancel + vbQuestion, "Confirm Email Sending")
    
    If xOkOrCancel <> vbOK Then
        Cancel = True
    End If
End Sub

4. 按下 “Alt” + “Q” 键，即可保存并关闭 VBA 编辑器。

📌 效果：从现在起，每次你在 Outlook 中点击发送邮件时，都会弹出确认对话框，提示“是否继续发送此邮件？”选择“确定”即可发送，点击“取消”则可返回邮件继续编辑。