如何使用 Outlook VBA 自动检查特定外发电子邮件中的附件

展望解决方案 2025 年 9 月 29 日

有时，您可能会忘记在特定电子邮件中添加所需的附件，例如报告每周工作的电子邮件。本文将教您激活弹出警告，以防止您发送没有附件的特定电子邮件。

与 Outlook 2010 和以前的版本不同，Outlook 2013 具有原生支持，可以在您未在外发电子邮件中附加任何文件时提醒您。您可以在 Outlook 选项中启用此功能，如下图所示：

只要您启用附件缺失自动警告，每次发送电子邮件时都会弹出警告。但大多数情况下，您确实不需要添加附件。在这种情况下，警告会很烦人。本文将介绍如何使用 Outlook VBA 为特定外发邮件启用附件缺失自动警告功能。

自动检查特定外发电子邮件中的附件

首先，启动 Outlook 并切换到“开发人员”选项卡。
单击“代码”组中的“Visual Basic”按钮。
然后在新弹出的“Microsoft Visual Basic for Applications”窗口中，双击“ThisOutlookSession”项目将其打开。
随后，您应该将以下代码复制到“ThisOutlookSession”项目中。

Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strMsg As String
    Dim intAns As Integer
 
    If Item.Class <> olMail Then
       Exit Sub
    End If
 
    'Specify the Email Recipient and Subject
    If InStr(LCase(Item.To), "test") > 0 And InStr(LCase(Item.Subject), "worklog") > 0 Then
       If Item.Attachments.Count = 0 Then
          strMsg = "Do you want to send the email without attachments?"
          intAns = MsgBox(strMsg, vbYesNo + vbDefaultButton2 + vbExclamation, "Check for Missing Attachments")
          If intAns = vbNo Then
             Cancel = True
          End If
       End If
    End If
End Sub

接下来单击工具栏中的保存图标。
之后，您应该继续签署此代码。

首先，您需要创建一个数字证书。微软 Office 自带一个内置实用程序——“VBA 项目数字证书”。您可以通过在“开始”菜单中搜索“vba”找到它。
接下来，回到“visual basic”窗口对代码进行签名。

之后，退出“Visual Basic”并单击“开发人员”选项卡下的“宏设置”按钮。在“信任中心”对话框中，您应该选择仅启用数字签名的宏。记得最后点“确定”。
最后你可以试试看。创建具有特定收件人和主题但不带附件的新邮件。当您点击“发送”按钮时，您将收到一个弹出警告，如下图所示：

保护您的 Outlook 数据

由于 Outlook 容易损坏，您应该努力保护您的 Outlook 数据。最好的方法是进行一致且最新的备份。因此，您可以轻松恢复损坏的 Outlook 数据即使 Outlook 意外崩溃，也可以从备份中删除。此外，如果不幸备份失败，您别无选择，只能借助经验丰富的修复工具，例如 DataNumen Outlook Repair.

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括修复 SQL 数据库错误和 outlook 修复软件产品。欲了解更多信息，请访问 datanumen.com