Jo he vist coses que vosaltres no creuríeu. Atacar naus en 16 colors més enllà d'un Vic 20. He vist raigs catòdics brillar a la foscor a prop del port de cartutx d'un Atari 2600.
Tots aquests moments es perdran en el temps, com llàgrimes a la pluja. Hora d'actualitzar.


   

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]

   
[ca] [es]




 


Movimiento Anti Guardarraíles Mallorca

IBSN: 2-718-2818-28

www.zolople.com


web personal de
Bartomeu Homar i Graxell
escriu-me

Aquesta obra es troba sota una llicència de Creative Commons.



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