Application_ItemSend secondaire privé (article de ByVal comme objet, annulation comme booléenne)
Faible olkRecipient comme Outlook.Recipient
S'Item.Class = puis olMail
Pour chacun olkRecipient dans Item.Recipients
Choisir le cas LCase (olkRecipient.AddressEntry.Address)
« Éditer l'adresse sur la prochaine ligne comme nécessaire »
Enfermer « [email protected] », « [email protected] », « [email protected] »
Si msgbox (« êtes-vous sûr vous voulez-vous envoyer ce message ? », le vbQuestion + le vbYesNo, « confirment le message envoient ») = vbNo puis
L'annulation = rectifient
Finir si
Finir choisi
Après
Finir si
Placer olkRecipient = rien
Finir le sous-marin
|