有没有人经常忘加附件？（VBA提醒）

sealot

小弟初来乍到。不知道以前有没有人提过这个问题？

我经常发邮件的时候告诉对方“请看附件”，但是忘记加附件就把信发出去了。下面的宏可以检查邮件内容，然后给一个提醒！

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

DC.Direct

不错，很好的点子。

蓝湘凝

可是偶不知道这个要怎么用啊

dongdonga

很好,先收下了!!!

york888

我试试，不错谢谢楼主！

rmb

谢谢楼主，可是有个问题。

我在OL 2000上试没问题，可是OL XP就是不行。为什么呢？是不是有什么地方的设置要注意？

wancj

xie xie!

树上果子

怎么用啊?编程序在哪里啊?菜鸟问...因为自己经常给领导发邮件忘附件.....

fowler

9494,这个好东西怎么用呀，在哪里添加这些代码呢？

sealot

感谢版主和各位的支持！

简单给几位不太了解代码的朋友介绍一下使用方法：

1)调整outlook宏的安全级别，我级别设置的是“低”，如果设置成“中”则打开outlook会有安全提示，那么选择运行宏，设置为“高”就不运行宏了。

2)在outlook里按 alt＋F11 ，把代码贴到代码区域（应该是面积最大的那块地方）

3)退出outlook，系统会提示“是否保存VBA”，选“是”。重新启动outlook就可以了。