（VBA Outlook）发送一揽子邮件时提示消息框

Question

我想知道是否所有人都可以帮助我，最近我不小心用To字段而不是BCC向大约800个客户发送了一封总括电子邮件。

在Outlook中，有什么方法可以检测到“收件人”，“抄送”字段中的电子邮件地址数量，如果超过5个，则提示输入消息框，确定吗？

我怀疑VBA

谢谢

Answer 1

没有测试过...这应该对您有帮助

item As Outlook.MailItem

strNames = item.To
For i = 1 To Len(strNames)
    If Mid(strNames, i, 1) = ";" Then j = j + 1
Next i

strNames = item.CC
For i = 1 To Len(strNames)
    If Mid(strNames, i, 1) = ";" Then k = k + 1
Next i

strNames = item.BCC
For i = 1 To Len(strNames)
    If Mid(strNames, i, 1) = ";" Then l = l + 1
Next i

j，k，l分别给出TO，CC，BCC中的收件人数