Как b cc любое электронное письмо, отправленное на адрес электронной почты за пределами моего домена?

Question

Я ищу b cc любое электронное письмо, отправленное на адрес электронной почты за пределами моего домена.

Я нашел этот скрипт, который применяется ко всем электронным письмам.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

    Dim objMe As Recipient
    Set objMe = Item.Recipients.Add("youremailaddress@whatever.com")
    objMe.Type = olBCC
    objMe.Resolve
    Set objMe = Nothing
End Sub

Answer 1

Я предполагаю, что вы хотите добавить адрес B CC, если электронное письмо отправлено за пределы вашей организации Exchange, а не только на основе доменного имени, верно? Попробуйте что-то вроде следующего (от макушки моей головы). Сценарий проверяет, есть ли получатели, отличные от типа EX (то есть они находятся за пределами вашей организации Exchange):

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMe As Recipient
    Dim objRecip As Recipient
    for each objRecip in Item.Recipients
      if objRecip.AddressEntry.Type <> "EX" Then
        Set objMe = Item.Recipients.Add("youremailaddress@whatever.com")
        objMe.Type = olBCC
        objMe.Resolve
        Set objMe = Nothing
        exit for
      End If
    next
End Sub