Comment récupérer adresse mail avec nom de domaine d'un destinataire
Bonjour,
Après une recherche infructueuse sur le FORUM, je me lance dans la création d'un fil de discussion.
En espérant ne pas faire de doublon.
J'ai écris une macro qui se lance dès que l'on envoie un email.
La macro identifie tous les destinataires du mail.
Si un le domaine d'un destinataire (nom.prenom@domaine.com) correspond à un type de domaine spécial alors on envoie une copie du mail à une adresse mail spécifique.
Ci dessous la macro :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
| Option Explicit
Sub application_itemsend(ByVal item As Object, cancel As Boolean)
Dim cc As String
Dim recherche As Boolean
Dim Destinataire, myrecipient As Variant
cc = "nom.prenom@domaine.com"
recherche = False
'on verifie si c'est un mail
If Not item.Class = olMail Then Exit Sub
'on regarde tous les destinataires du mail
For Each Destinataire In item.Recipients
'on vérifie si un envoie est fait à un type de domaine
If AdresseEmail(Destinataire) Then recherche = True
Next Destinataire
'on met en copie
If recherche Then
Set myrecipient = item.Recipients.Add(cc)
myrecipient.Type = olCC
End If
myrecipient.Resolve
End Sub
Function AdresseEmailTECHNIP(ByVal EmailAVerifier As String) As Boolean
Dim EmplacementArobase As Integer
Dim Domaine As String
'vérification de l'adresse
EmplacementArobase = InStr(1, EmailAVerifier, "@")
Domaine = Right(EmailAVerifier, Len(EmailAVerifier) - EmplacementArobase)
If Domaine = "domaine_recherché.com" Then AdresseEmai = True Else AdresseEmail = False
End Function |
La macro fonctionne bien à une exception près.
Si j'entre dans ma barre d'adresse un mail de mon organisation de type nom.prenom@domaine.com OUTLOOK me l'affiche sous le format "NOM PRENOM"
Jusqu'ici rien d'anormal.
Sauf que dans la macro, la valeur renseignée dans Destinataire dans la boucle FOR (For Each Destinataire In item.Recipients) est "NOM PRENOM"
Du coup, comme je recherche l'@ pour extraire le nom du domaine et qu'il n'y a pas d'@ dans Destinataire...
La macro ne fonctionne pas.
Je voudrais extraire le domaine de l'adresse mail en toutes circonstances.
Pouvez vous m'aider ?
Merci