Outlook：忘记在邮件中添加附件时的自动提醒

Author: Kelly Last Modified: 2025-05-08

您可能经常因为忘记添加附件而感到头疼，但可以在邮件正文中提醒收件人检查附件。在这里，我们将介绍两种技巧，教您如何在发送可能缺少附件的电子邮件时，让 Microsoft Outlook 自动提醒您。

Outlook 2013/2016 中忘记附件时的自动提醒

使用Outlook中的强大工具，在忘记附件时自动提醒 👍（支持所有版本）

Outlook 2007 和 2010 中忘记附件时的自动提醒

Outlook 2013/2016 中忘记附件时的自动提醒

Microsoft Outlook 2013 支持在发送可能缺少附件的电子邮件时自动警告您的功能。

步骤 1：点击“文件”>“选项”。

步骤 2：在“Outlook 选项”对话框中，点击左侧栏中的“邮件”。

步骤 3：转到“发送邮件”部分，并勾选“当我发送可能缺少附件的消息时警告我”的选项。

步骤 4：点击“确定”按钮退出此对话框。

然后，如果您可能忘记添加附件，Microsoft Outlook 2013 或 2016 将会自动发出警告。

例如，您在邮件正文中输入了“请检查附件”、“查看附件”等文字，但没有在“附件”字段中插入附件。当您点击“发送”按钮时，会弹出一个警告对话框，提示您可能忘记了附加文件。请参见以下屏幕截图：

the steps of auto reminder when forgetting attachments in Outlook 2013/2016

使用Outlook中的强大工具，在忘记附件时自动提醒 👍（支持所有版本）

“Kutools for Outlook”中的“当我发送可能缺少附件的消息时提醒我”功能提供了一种可自定义的解决方案，确保您永远不会忘记附件。您可以指定关键词，当检测到没有附件的电子邮件中包含这些关键词时，会在发送前触发提醒。这种个性化的方法为Outlook自带的“当我发送可能缺少附件的消息时提醒我”选项提供了强大的替代方案，后者有时无法有效提醒用户。通过使用 Kutools，您可以确保您的通信始终完整且专业。

步骤 1：启用“当我发送可能缺少附件的消息时提醒我”功能

1. 下载并安装 Kutools for Outlook 后，点击“Kutools Plus”>“更多”>“当我发送可能缺少附件的消息时提醒我”。

步骤 2：创建用于提醒的自定义关键词

在“发送前提醒”对话框中，点击“添加”按钮。
在“关键字”文本框中输入关键字。
点击“确定”。
点击“确定”。
点击“是”以启用提醒。

the steps of auto reminding when forgetting attachments with an amazing tool in Outlook

结果

每当您撰写的电子邮件在主题或正文中包含指定的关键字但忘记附加文件时，单击“发送”按钮后将弹出一个警告框，提醒您添加附件。

注意： 要应用“Kutools for Outlook”的“当我发送可能缺少附件的消息时提醒我”功能，首先，您应该下载并安装 Kutools for Outlook。

Outlook 2007 和 2010 中忘记附件时的自动提醒

Microsoft Outlook 2007 和 2010 不支持在您可能忘记附件时自动发出警告。VBA 宏可以帮助您实现这一功能。

步骤 1：按“Alt”+“F11”键打开“Microsoft Visual for Applications 窗口”。

步骤 2：在左侧栏中展开 Project 1，并双击“ThisOutlookSession”以打开它。

步骤 3：将以下代码粘贴到“ThisOutlookSession”窗口中。

VBA：未插入附件时的警告

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim retMB As Variant
Dim strBody As String
Dim iIndex As Long

On Error GoTo handleError

iIndex = InStr(Item.Body, "attach")

If iIndex > 0 And Item.Attachments.Count = 0 Then

retMB = MsgBox("You may have forgotten to attach a file." & vbCrLf & vbCrLf & "Do you still want to continue?", vbQuestion + vbYesNo + vbMsgBoxSetForeground)
If retMB = vbNo Then Cancel = True

End If

handleError:

If Err.Number <> 0 Then
MsgBox "Outlook Attachment Alert Error: " & Err.Description, vbExclamation, "Outlook Attachment Alertr Error"
End If

End Sub

步骤 4：点击工具栏上的“保存”按钮。

从现在开始，如果您在邮件正文中添加了“附件”字样但没有附加文件，当您点击“发送”按钮时，将会弹出警告提醒，告诉您可能忘记了附加文件。请参见屏幕截图：