« M'encantaria poder canviar el món... però és que no em donen el codi font » (geek anònim)


   

Informàtica


 
Fa un temps ja vaig posar la manera de passar en Outlook automàticament tots els destinataris al camp 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


Ara, fent una petita modificació, aquí teniu com fer per a que s'afegeixi automàticament un destinatari, de forma que tots els missatges enviats vagin a una compta donada:

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]

   

Les coses d'en Zolople



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