VBA Script To Outlook 2013 that sets Auto BCC

Outlook VBA Script Set Auto BCC

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

    Dim Msg As Outlook.MailItem
    Dim onsMapi As Outlook.NameSpace
    Dim objRecip As Recipient
    Dim strMsg As String
    Dim res As Integer
    Dim strBcc As String

    On Error Resume Next
    strBcc = "jorge.cantadeiro@rederia.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

Hi .....This is Nandha
Can you tell me the VBA Script to Outlook 2016 that sets Auto CC.