« Me encantaría poder cambiar el mundo... pero es que no me dan el código fuente » (geek anónimo)


   

Informática


 
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
06/02/2007 Les coses d'en Zolople/Informática [ca] [es]

   
   
  © Bartomeu Homar i Graxell www.zolople.com | escriu-me | informació legal