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 = "[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
* 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("[email protected]")
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("[email protected]")