Agregue BCC al correo electrónico con VBA en Outlook 2013

No puedo averiguar el código VBA correcto para Outlook 2013 para agregar una dirección de correo electrónico fija al campo BCC de un correo electrónico mientras esté abierto para edición. Tengo el siguiente código, que crea el correo electrónico y luego configura el BCC.

Quiero agregar BCC a los correos electrónicos a los que respondo, por lo que el mensaje ya estará en forma de 'borrador'.

Sub sendcomment_click()
Set oMsg = Application.CreateItem(olMailItem)

With oMsg
    .Recipients.Add ("email address")
    'Set objRecip = Item.Recipients.Add("email address")
    'objRecip.Type = olBCC
    'objRecip.Resolve

    ' Join Email addresses by "; " into ".BCC" as string
    .BCC = "Person.A@somewhere.com; Person.B@somewhere.com"

    .Subject = "New Comment by"
    .Body = "sdfsdfsdf"
    .Display ' Comment this to have it not show up
    '.Send ' Uncomment this to have it sent automatically
End With

Set oMsg = Nothing
End Sub

* Actualizar *

Implementé el gran consejo de Dmitry.

Mi código ahora lee:

Sub BCC()
Dim objRecip As Recipient
Set oMsg = Application.ActiveInspector.CurrentItem

With oMsg

Set objRecip = item.Recipients.add("XXX@example.com")
objRecip.Type = olBCC
objRecip.Resolve

End With

Set oMsg = Nothing

End sub

Sin embargo, cuando intento ejecutarlo, aparece el mensaje "Error de tiempo de ejecución '424' Objeto requerido" y resalta la línea:

Set objRecip = item.Recipients.Add("xxx@example.com")