1、2003版本：打开outlook --工具--宏--安全性--点为所有宏提供警告或不执行安全性检查（不推荐）--确定2010及以后版本：打开outlook—文件—选项—信任中心—信任中心设置—宏设置，选择为启用所有宏，否则每次打开outlook都会提示是否启用宏。
2、重新打开outlook，按Alt+F11键打开宏编辑器，如下图，展开左侧目录，双击“this outlook session”弹出宏编辑界面，将以下代码粘贴上面Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)Dim lngres As LongIf InStr(1, Item.Body, "附件") <> 0 ThenIf Item.Attachments.Count = 0 Thenlngres = MsgBox("邮件内容中包含附件描述但没有发现附件是否继续发送!", vbYesNo + vbDefaultButton2 + vbQuestion, "提示")If lngres = vbNo Then Cancel = TrueEnd IfEnd IfEnd Sub
3、保存以上代码编辑，退出outlook。
4、测试，重新打开outlook 填写收件人，然后正文中输入“附件” ，但不添加附件，点“发送”，如果跳出“邮件内容中包含附件描述但没有发现附件是否继续发送!”的提示，则测试通过，点“否”，然后添加附件，点发送就OK了。正文中必须有附件两个字，才会判断并提示。
