VB脚本阻止Outlook客户端为每条消息添加一定数量的收件人

Question

我想要一个脚本，通过该脚本，任何人都只能添加允许他们发送的特定数量的收件人。

例如：

我想限制我的Outlook客户端只添加25个收件人，一旦他们添加第26个收件人，它将自动给出错误“你不能添加超过25个收件人”，它将退出新邮件。

Answer 1

如果添加新收件人，Outlook中没有事件会触发。但是，当发送电子邮件时会发生一个事件。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim arrTo() As String
    Dim arrCC() As String
    Dim arrBCC() As String
    arrTo = Split(Item.To, ";")
    arrCC = Split(Item.CC, ";")
    arrBCC = Split(Item.BCC, ";")
    itemcount = UBound(arrTo) + 1 + UBound(arrCC) + 1 + UBound(arrBCC) + 1
    If (itemcount > 25) Then
        MsgBox("You cannot add more than 25 recipients.")
        Cancel = True
    End If
End Sub

此代码在用户按下发送时执行。然后它检查是否有超过25个收件人，如果有，它将取消他的交付并打印一条消息。

Answer 2

添加收件人后，MailItem.PropertyChange事件将使用“收件人”，“CC”和“BCC”参数触发3次。