如何检查收件人个数！！着急

hqz883

我快哭了，今天回复邮件时不小心点错了。
回复了上一封邮件，发给了整个公司，有一千多号人呢....
我该怎么办啊？？？？
希望大家帮我想个VBA，在发送时能检查收件人的数量，包括抄送的人。如果大于20人就弹出窗口警告，是否继续发送。
我的心现在拔凉拔凉的....

lrlxxqxa

这个功能在outlook里面应该有吧，你发送的时候能看到数量的

hqz883

是能看到数量，但是有时候工作一着急或者是手误按错了，就这么发送出去了。
等发完了才发现过来，希望有个警告的窗口提醒一下自己。

dsd999

呵呵， 以后小心点， 现在我来帮你。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim ml As mailItem
Set ml = Item
If ml Is Nothing Then Exit Sub
If ml.Recipients.Count > 20 Then
    If MsgBox("收件人数量 (" & ml.Recipients.Count & ")大于20， 继续发送邮件吗?", vbYesNo) = vbNo Then
    Cancel = True
    Exit Sub
    End If
End If
End Sub