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
