|
Hace un tiempo ya puse la forma de pasar en Outlook automáticamente todos los destinatarios al campo CCO:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient
For Each objRecip In Item.Recipients
objRecip.Type = olBCC
objRecip.Resolve
Next
Set objRecip = Nothing
End Sub
Ahora, haciendo una pequeñísima modificación, aquí tenis cómo hacer para que se añada automáticamente un destinatario, de forma que todos los mensajes enviados vayan a parar a una cuenta dada:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient
Set objRecip = Item.Recipients.Add("zolople")
objRecip.Type = olBCC
objRecip.Resolve
End Sub
|
