Adding a BCC depending on sender address

[jdelano]

Maybe because I am using a personal (and not a business) email this worked for me.

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


    Dim bccEmail As String
    
    If Item.SenderEmailAddress = "xxxxxxxxxxx@hotmail.com" Then
        bccEmail = "yyyyyyyyy@comcast.net"
        Item.BCC = bccEmail
    
    End If
    
End Sub