Добавьте BCC к электронной почте с VBA в Outlook 2013

Я не могу определить правильный код VBA для Outlook 2013, чтобы добавить фиксированный адрес электронной почты в поле BCC электронного письма, когда оно открыто для редактирования. У меня есть следующий код, который создает электронную почту, а затем устанавливает BCC.

Я хочу добавить BCC к электронным письмам, на которые я отвечаю, поэтому сообщение уже будет в «черновом» виде.

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

* Обновить *

Я реализовал отличный совет от Дмитрия

Мой код теперь читает:

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

Однако, когда я пытаюсь запустить его, я получаю сообщение об ошибке «Ошибка времени выполнения» 424 «Требуется объект», и он выделяет строку:

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