如何在 Outlook 2010 中警告自己即将发送没有附件的电子邮件？

Question

Gmail 有一个很棒的功能，它会警告我即将发送一封带有附件的电子邮件，但我还没有附加任何内容。在 Outlook 2010 中是否也有办法做到这一点？

我接受 VBA 脚本、自定义规则或自定义插件

Answer 1

Outlook 2013 内置了此功能，因此无需添加任何自定义脚本或插件。

即使你专门要求 Outlook 2010以下脚本也适用于 2010 及之前的版本：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
   If InStr(1, Item.Body, "attach", vbTextCompare) > 0 Then
        If Item.Attachments.Count = 0 Then
          answer = MsgBox("There's no attachment, send anyway?", vbYesNo)
          If answer = vbNo Then Cancel = True
        End If
   End If
End Sub

这将向您发送如下所示的警报：

按下yes将仍然发送电子邮件，而按下no将停止发送电子邮件，从而使您能够附加附件。

---

这是更新版本。由于回复包含以前的消息，并且没有快速简便的方法来确定回复正文和引用消息的开始/结束位置，因此这不会提示您回复：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    If InStr(1, Item.Subject, "RE:", vbTextCompare) = 0 Then
       If InStr(1, Item.Body, "attach", vbTextCompare) > 0 Then
            If Item.Attachments.Count = 0 Then
              answer = MsgBox("There's no attachment, send anyway?", vbYesNo)
              If answer = vbNo Then Cancel = True
            End If
       End If
    End If
End Sub

还应该注意，在两种情况下（我修改过的和原始的），任何带有“附件”字样的原始电子邮件都会提示您是否要附加文件。