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

duhuanbing · 发表于 2011-1-1 19:57

2007测试成功
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
以上只是检测有没有附件，正文中不要求写"附件"的字样

xihabang · 发表于 2011-1-13 15:06

不错 ..学习了

xmyjk · 发表于 2011-3-16 23:21

确实经常忘了加附件，挺好的小代码工具

lysm · 发表于 2011-3-30 14:48

很好的东东，谢谢了!!!!!!!

xahxxl · 发表于 2011-8-17 15:32

不知道怎么用

Kelidai · 发表于 2011-7-17 12:00

好主意，谢谢分享。

pllkoiu · 发表于 2011-7-18 23:11

我经常会忘记啊

xzqzgr · 发表于 2011-8-1 16:37

真是太好了，正是我要找的东东，谢谢楼主分享。

caimengran · 发表于 2011-8-17 10:38

这个好高手啊

zhjwshmily · 发表于 2011-8-5 10:20

其实我们一般经常用的outlook是英文版的，所以在
If InStr(1, Item.Body, "附件") <> 0 Then
变成
If InStr(1, Item.Body, "附件","attachment","adding","accessory") <> 0 Then
或者其他更多的附件单词，呵呵。。。我个人一般都用attachment
非常有用的函数，呵呵

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