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

kanny_a · 发表于 2010-6-14 14:15

真是雪中送炭啊！

kanny_a · 发表于 2010-6-14 14:17

顶顶顶，大家一起来把这个帖子顶上去！

dell1400 · 发表于 2010-6-26 13:07

太好了！！太牛了

shoppingbone · 发表于 2010-8-4 08:52

太好咧。。。用outlook一直都是很小白的在用

pinkwhl · 发表于 2010-9-29 16:07

在 Microsoft Windows XP 中，单击“开始”按钮，依次指向“所有程序”、“Microsoft Office”和“Microsoft Office 工具”，然后单击“VBA 项目的数字证书”。在“您的证书名称”框中，为该证书键入一个描述性名称。就可以解决降低宏安全的危险隐患。

pinkwhl · 发表于 2010-9-30 15:44

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dim lngres As Long

'检查邮件是否添加附件
  If Item.Attachments.Count < 1 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
'检查是否写主题
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
以上只是检测有没有附件，正文中不要求写"附件"的字样

B2R · 发表于 2010-10-19 11:04

很好的点子啊，谢谢楼主

mzp320123 · 发表于 2010-12-23 15:22

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

Dim lngres As Long

'检查邮件是否添加附件
If Item.Attachments.Count < 1 Then
Application.Explorers(1).Activate
...

2003可以用吗？1楼的我貌似有无附件都提示啊！

xtcbsa · 发表于 2010-12-26 12:55

实在太好了，我按照LZ的方法已经设置成功，有了这段代码，以后就不会忘记加附件了，真心感谢。

sam.tan · 发表于 2010-12-27 12:00

我的OL1995-2003也不行啊.

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

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

感谢感谢！

使用自己的数字证书

2007测试成功