有没有人经常忘加附件？（VBA提醒）
时间：2005-12-06
来源：互联网
小弟初来乍到。不知道以前有没有人提过这个问题？
我经常发邮件的时候告诉对方“请看附件”，但是忘记加附件就把信发出去了。下面的宏可以检查邮件内容，然后给一个提醒！
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
Application.Explorers(1).Activate
lngres = MsgBox("邮件内容中包含“附件”，但是没有发现附件！" & Chr(10) & "仍然发送？", _
vbYesNo + vbDefaultButton2 + vbQuestion, "提示")
If lngres = vbNo Then
Cancel = True
Item.Display
Exit Sub
End If
End If
End If
'检查是否写主题
If Item.Subject = "" Then
Application.Explorers(1).Activate
lngres = MsgBox("邮件还没有写主题呢！" & Chr(10) & "仍然发送？", _
vbYesNo + vbDefaultButton2 + vbQuestion, "提示")
If lngres = vbNo Then
Cancel = True
Item.Display
Exit Sub
End If
End If
End Sub
作者: sealot 发布时间: 2005-12-06
不错，很好的点子。
作者: DC.Direct 发布时间: 2005-12-07
作者: 蓝湘凝 发布时间: 2005-12-08
作者: dongdonga 发布时间: 2005-12-14
作者: york888 发布时间: 2005-12-17
谢谢楼主，可是有个问题。
我在OL 2000上试没问题，可是OL XP就是不行。为什么呢？是不是有什么地方的设置要注意？
作者: rmb 发布时间: 2005-12-20
xie xie!
作者: wancj 发布时间: 2006-01-03
怎么用啊?编程序在哪里啊?菜鸟问...因为自己经常给领导发邮件忘附件.....
作者: 树上果子 发布时间: 2006-01-03
作者: fowler 发布时间: 2006-01-04
感谢版主和各位的支持！
简单给几位不太了解代码的朋友介绍一下使用方法：
1)调整outlook宏的安全级别，我级别设置的是“低”，如果设置成“中”则打开outlook会有安全提示，那么选择运行宏，设置为“高”就不运行宏了。
2)在outlook里按 alt＋F11 ，把代码贴到代码区域（应该是面积最大的那块地方）
3)退出outlook，系统会提示“是否保存VBA”，选“是”。重新启动outlook就可以了。
作者: sealot 发布时间: 2006-01-04
應該怎麼用?
作者: nmc 发布时间: 2006-01-05
不好意思，我不知道怎么添加代码到outlook 中去
我用的是OUTLOOK2003英文版的。
作者: weixueke 发布时间: 2006-02-20
谢谢，很实用。
我在outlook2003下验证正常。
作者: p3d14159 发布时间: 2006-02-25
作者: bubuer 发布时间: 2006-06-14
谢谢，收下了！
作者: jerry1981 发布时间: 2007-05-17
我COPY了，好像只检查是否有主题，不检查是否有附件！
请高手帮助解惑下！谢谢
作者: dp1981dp 发布时间: 2008-02-14
作者: dp1981dp 发布时间: 2008-02-14
感谢版主和各位的支持！
简单给几位不太了解代码的朋友介绍一下使用方法：
1)调整outlook宏的安全级别，我级别设置的是“低”，如果设置成“中”则打开outlook会有安全提示，那么选择运行宏，设置为“高”就不运行宏了。
2)在outlook里按 alt＋F11 ，把代码贴到代码区域（应该是面积最大的那块地方）
3)退出outlook，系统会提示“是否保存VBA”，选“是”。重新启动outlook就可以了。
多谢楼主给的以上方法。
作者: okcgy 发布时间: 2008-02-17
主题不写出现了提示，但是附件没有出现啊。
怎么回事，是2003不支持么？
作者: hyl 发布时间: 2008-03-18
到第二步了，可是粘贴不了啊？请教啊！
作者: lilac9296 发布时间: 2008-03-20
作者: 不消不灭 发布时间: 2008-03-31
太棒了,呵呵!
作者: GUCHENGRONG 发布时间: 2008-05-14
不懂如何写这个程序呀，我用的是07，谢谢楼上指点。。。
作者: tonybjs 发布时间: 2008-05-14
好东西，一直发错
[em06]作者: xyloside 发布时间: 2008-05-20
学习，谢谢！
作者: aquaiibear 发布时间: 2008-05-28
作者: soboiling 发布时间: 2008-05-28
作者: lysm 发布时间: 2008-05-30
用了,真的很好用!
作者: stomach 发布时间: 2008-06-04
我常忘了附件就发邮件，这个真的很好用，不过我试过了OUTLOOK2003有的电脑可以能用，角一版本的有的只能检查主题，无法用来检查附件，不知是什么原因
作者: sheroa 发布时间: 2008-06-10
能不能给一个详细的教程,我都不知道怎么用
作者: stone_shu 发布时间: 2008-06-19
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读：74
-
如何安装mysql8.0
阅读：31
-
Word快速设置标题样式步骤详解
阅读：28
-
20+道必知必会的Vue面试题（附答案解析）
阅读：37
-
HTML如何制作表单
阅读：22
-
百词斩可以改天数吗？当然可以，4个步骤轻松修改天数！
阅读：31
-
ET文件格式和XLS格式文件之间如何转化？
阅读：24
-
react和vue的区别及优缺点是什么
阅读：121
-
支付宝人脸识别如何关闭?
阅读：21
-
腾讯微云怎么修改照片或视频备份路径?
阅读：28
