Outlook auto BCC vba

Outlook 2016 Auto BCC VBS 

1. Enable all macros 

2. Run Outlook and press "Alt + F11"  create a new project, copy the code below and change the email, save it and restart the outlook.

=====================================================

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'comments
'This version is suitable for Outlook 2003 or later. It uses Outlook objects exclusively and
'includes error handling to avoid problems with an invalid Bcc address.
'Place this VBA code in the built-in ThisOutlookSession module


    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 = "abc@abc.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

or

====================================

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

    Dim objMe As Recipient

    Set objMe = Item.Recipients.Add("abc@abc.com")

    objMe.Type = olBCC

    objMe.Resolve

    Set objMe = Nothing

End Sub