Buen día
Hace unos días tuve la necesidad de crear una regla para enviar copia oculta de todos los correos a ciertas direcciones, en outlook 2013 es muy fácil pero en outlook 2010 no. Me encontré este código que es muy útil sin embargo solo me permite enviar cco
a una persona al agregar mas de una dirección no lo hace. ¿Me pueden ayudar para que se pueda enviar a mas de un destinatario la CCO?
Gracias
Private Sub Application_ItemSend(ByVal Item As Object, _
Cancel As Boolean)
Dim objRecip As Recipient
Dim strMsg As String
Dim res As Integer
Dim strBcc As String
On Error Resume Next
strBcc.Bcc = "mail1; mail2"
Set objRecip = Item.Recipients.Add("strBcc")
objRecip.Type = olBCC
If Not objRecip.Resolve Then
strMsg = "No se encontro la dirección para CCO. " & _
"Quieres enviar el correo?"
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
"Advertencia")
If res = vbNo Then
Cancel = True
End If
End If
Set objRecip = Nothing
End Sub
