我们在使用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代码
