|
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
|
