Outlook - vérifier le type d'adresse e-mail

Question

J'essaye de créer une macro dans Outlook qui va scanner la liste To: pour une certaine chaîne de texte, et cracher un message si toutes les adresses sauf une (ou deux, etc.) l'ont. Y a-t-il un moyen simple de le faire? Essentiellement, j'essaye d'écrire quelque chose qui évitera d'être capable d'envoyer un message restreint à un groupe de personnes avec la chaîne 'xyz' dans l'adresse, si une ou plusieurs ne l'ont pas. La saisie semi-automatique rend cette tâche difficile, sans vérifier une à une.

Answer 1

Ceci est possible en utilisant Outlook VBA.

Vous devez écrire un hook d'événement lorsque l'utilisateur envoie un e-mail. Ceci est fait en utilisant Application_ItemSend (objet ByVal en tant qu'objet, Cancel As Boolean) où Item est l'élément envoyé (email ou rendez-vous), et cancel est un booléen que vous pouvez définir pour arrêter l'envoi de l'email.

Dans votre code, vous voudrez regarder la collection de destinataires sur l'objet Item pour voir qui va recevoir l'email. Par exemple:

Dim CurrRecip As Recipient 
For Each CurrRecip in Item.Recipients 
    If InStr(1, CurrRecip.Address , "your search text here" , vbCompareText) Then 
     debug.print "Message here..." 
    End If 
Next CurrRecip 

Espérons qui aide ...