避免Outlook发出没有“标题”或“附件”的邮件

我们在使用Outlook客户端时，经常会遇到一时着急而忘记填写“邮件标题”或添加“附件”却顺手发出邮件的情况，往往在发出邮件之后才反应过来进而后悔不迭。一般的补救办法，当然就是重新补发一封邮件。但假如遇到很极端的情况，比如发出邮件之后就离开Outlook去做别的事情，而自己又一直不知道漏发了重要的附件，然后期待收到附件的人也一直在干着急却束手无策，那就会给咱们的工作或者事务带来很大的不便甚至损失。

这里，就介绍一种方法来避免上述的情况发生，尽量避免尴尬、失误以及损失。

前提：这种方法需要开启、利用Outlook里面的“宏”和“VBA”功能。

下面是具体的VBA代码。（1.标点都是英文半角状态输入，2.担心文章编辑器对代码的缩进的处理可能会影响阅读，在底部有图片版本的代码。）

步骤：启用宏，新建一个工程，我们就给它起名为ItemSend吧。在代码窗口中录入以下代码。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dim strSubject As String

      Dim strBody As String

      strSubject=Item.Subject  '邮件标题

      strBody=Item.Body   '正文

      '邮件标题检查

      If Trim(strSubject) = "" Then

            If MsgBox(“可能忘记写【邮件标题】了哦！真的发送此邮件吗？",vbYesNo + vbExclamation) = vbNo Then

                  Cancel=True

                  Exit Sub

            End If

      End If

      '附件检查

      If InStr(strSubject & strBody, "附件") > 0 And Item.Attachments.Count = 0 Then

            IfMsgBox(“可能忘记添加【附件】了哦！真的发送此邮件吗？", vbYesNo + vbQuestion) = vbNo Then

                  Cancel=True

                  Exit Sub

            End If

      End If

End Sub

保存上述VBA。关闭代码编辑窗口，回到Outlook主界面。

今后，我们发送邮件时就会有以下的检查和警示功能了：

～没有写【邮件标题】时，弹出警示；

～邮件标题或正文中出现了“附件”这样的文字，但实际却没有附件文件时，弹出警示。

注意：开启“宏”功能后，每次打开Outlook客户端时，Outlook都会弹出安全提示，点击确定开启“宏”功能即可。

图片版VBA代码