Entrez le code suivant, en remplaçant "[email protected]" avec l'adresse email à laquelle vous souhaitez avoir la copie aveugle envoyé:
9-privé Application_ItemSend Sub (ByVal d'objet comme objet, Cancel As Boolean)
9- 9- Dim reçu comme Outlook.Recipient
9- 9- Dim Adresse $
9- 9-Adresse = "[email protected]"
9- 9-Set Reçu = Item.Recipients.Add (Adresse)
9- 9-Receipt.Type = olBCC
Receipt.Resolve
End Sub