Adicionar Cco ao email com o VBA no Outlook 2013
Não consigo descobrir o código VBA correto para o Outlook 2013 para adicionar um endereço de email fixo ao campo BCC de um email enquanto ele está aberto para edição. Eu tenho o código a seguir, que cria o email e define o Cco.
Quero adicionar Cco aos e-mails aos quais estou respondendo, para que a mensagem já esteja no formato 'rascunho'.
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
* Atualização *
Eu implementei o ótimo conselho de Dmitry
Meu código agora diz:
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
No entanto, quando tento executá-lo, recebo o erro "Erro no tempo de execução '424' Objeto necessário" e destaca a linha:
Set objRecip = item.Recipients.Add("[email protected]")