vba - (VBA Outlook) 发送一揽子邮件时提示一个消息框

Question

我想知道你们是否都可以帮助我，我最近不小心使用收件人字段而不是密件抄送向大约 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中的收件人数量