Outlook 2007 VBA - BCC в зависимости от получателей To/CC

Question

Я ищу, чтобы создать правило, которое условно добавит получателя BCC в зависимости от доменного имени получателей To/CC. Я уже определил вопрос this как нечто подобное, но он, похоже, не был разрешен.

Исходный код, как показано ниже:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) 
Dim objRecip As Recipient 
Dim strMsg As String 
Dim res As Integer 
Dim strBcc As String 
On Error Resume Next 

' #### USER OPTIONS #### 
' address for Bcc -- must be SMTP address or resolvable 
' to a name in the address book 

strBcc = "SomeEmailAddress@domain.com" 

Set objRecip = Item.Recipients.Add(strBcc) 
objRecip.Type = olBCC 
If Not objRecip.Resolve Then 
strMsg = "Could not resolve the Bcc recipient. " & _ 
"Do you want still to send the message?" 
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _ 
"Could Not Resolve Bcc Recipient") 
If res = vbNo Then 
Cancel = True 
End If 
End If 

Set objRecip = Nothing 
End Sub 

В псевдо-коде, который я ищу, чтобы добавить следующую условные к строке strBCC:

If ToCCRecipientDomain = "@example1.co.uk" 
    Then strBCC = "email1@trello.com" 
ElseIf ToCCRecipientDomain ="@example2.co.uk" 
    Then strBCC = "email2@trello.com" 
ElseIf ToCCRecipientDomain ="@example3.co.uk" 
    Then strBCC = "email3@trello.com" 
Else 
    Then Cancel = True 
End If 

Для тех, кто заинтересован в прикладных/причинах для этого я ищу, чтобы создать список писем, отправленных клиенту в Совет Trello для конкретного проекта, который будет зависеть от отправленного адреса электронной почты.

Answer 1

Я думаю, что я близок с этим, как показано ниже, просто добавляя дополнительные Если & EndIf линии, когда требуются дополнительные условия.

If InStr(Item.Recipients.Address, "@example1.co.uk") Then 
    strBcc = "email1@trello.com" 
If InStr(Item.Recipients.Address, "@example2.co.uk") Then 
    strBcc = "email2@trello.com" 
Else 
    Cancel = True 
End If 
End If