Добавьте 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 = "[email protected]; [email protected]"
.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("[email protected]")
objRecip.Type = olBCC
objRecip.Resolve
End With
Set oMsg = Nothing
End sub
Однако, когда я пытаюсь запустить его, я получаю сообщение об ошибке «Ошибка времени выполнения» 424 «Требуется объект», и он выделяет строку:
Set objRecip = item.Recipients.Add("[email protected]")