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

李玥颖 · 发表于 2011-12-17 09:16

谢谢，很实用

乔丁建 · 发表于 2011-12-22 16:49

很好，可是只显示没有“主题”啊

jensen530 · 发表于 2011-12-29 10:25

在 Outlook 2007 使用 Exchange 未设置成功。望更多测试和使用说明。不知道是否用的不对。

kevingarnett198 · 发表于 2012-1-5 14:43

good example.

JPCHEN198836 · 发表于 2012-1-5 22:10

怎么试了，没附件附件但是也没有提醒功能的~~~~··

Ｚane.Ｙ · 发表于 2012-1-10 03:18

经测试OK

楼主V5

liuzhenwei1 · 发表于 2012-2-20 20:24

sealot 发表于 2006-1-4 15:45
感谢版主和各位的支持！
简单给几位不太了解代码的朋友介绍一下使用方法：
1)调整outlook宏的安全级别，我 ...

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

请问是打开OUTLOOK ALT+F11 模块代码中输入以上内容吗但是邮件内容有“附件” 但没加附件怎么没有提示请教原因？

122333abc · 发表于 2012-6-23 07:55

在公司发邮件，最尴尬就是忘记了附件和主题，感谢楼主提供。

gloomly · 发表于 2012-7-26 12:56

不可以啊，第一次提示没有标题，后面怎么就不提示了，字节发出去了，请楼主指点

gloomly · 发表于 2012-7-26 13:22

pinkwhl 发表于 2010-9-30 15:44
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dim lngres As Long

怎么不行啊

		自动登录	找回密码
密码			免费注册