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

Question

我想知道你是否可以帮助我，我最近不小心发了一封电子邮件，使用To字段代替BCC给大约800名顾客。

在Outlook中是否有任何方法可以检测到To，CC字段中的电子邮件地址数量，如果超过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中的收件人数