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

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 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

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

4、测试，重新打开outlook 填写收件人，然后正文中输入“附件”墨罪 ，但不添加附件，点“发送”，如果跳出“邮件内容中包含附件描述但没有发现附件是否继续发送!”的提示，则测试通过，点“否”，然后添加附件，点发送就OK了。

正文中必须有附件两个字，才会判断并提示。