outlook发送邮件时总是忘记添加附件？

2003版本：打开outlook --工具--宏--安全性--点为所有宏提供警告或不执行安全性检查（不推荐）--确定2010及以后版本：打开outlook—文件—选项—信任中心—信任中心设置—宏设置，选择为启用所有宏，否则每次打开outlook都会提示是否启用宏。

重新打开outlook，按Alt+F11键打开宏编辑器，如下图，展开左侧目录，双击“this outlook session”弹出宏编辑界面，将以下代码粘贴上面Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim lngres As Long If InStr(1, Item.Body, '附件') <> 0 Then If Item.Attachments.Count = 0 Then lngres = MsgBox('邮件内容中包含附件描述但没有发现附件是否继续发送!', vbYesNo + vbDefaultButton2 + vbQuestion, '提示') If lngres = vbNo Then Cancel = True End If End If End Sub

保存以上代码编辑，退出outlook。