限制收件人数量

dsd999

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim ml As MailItem
Set ml = Item
If TypeName(ml) <> "MailItem" Then Exit Sub
If ml Is Nothing Then Exit Sub
If ml.Recipients.Count > 20 Then
    MsgBox ("收件人数量 (" & ml.Recipients.Count & ")大于20")
    Cancel = True
    Exit Sub
End If
End Sub

dsd999

如果不知道怎么用，看看 http://club.excelhome.net/thread-549121-1-1.html

07241

限制自己的群发数量，没什么意义吧，如果可以限制答复者的群发数量就好了，可以有效控制胡乱群发行为。

dsd999

07241 发表于 2014-4-17 20:41
限制自己的群发数量，没什么意义吧，如果可以限制答复者的群发数量就好了，可以有效控制胡乱群发行为。

你是群里的 “鱼儿”？

07241

dsd999 发表于 2014-4-21 09:44
你是群里的 “鱼儿”？

不是的。。。。。。。。。。。。。。

ztccsj

挺好，我的机器好像对.class=43这个条件不起作用，遇到会议邀请时就报错，跳不过去。