Discussion :

[Kornephoros]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Oliv-]

Bonjour,

Essaye avec cette fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function GetSMTPAddressForRecipient(recip As Outlook.Recipient) As String
'---------------------------------------------------------------------------------------
' Procedure : GetSMTPAddressForRecipient
' Author    : Oliv-
' Date      : 21/01/2015
' Purpose   : Obtenir l'adresse SMTP =xxx@xxx.xxx
'---------------------------------------------------------------------------------------
'Dim recip As Outlook.Recipient
'pas de adresse SMTP si Contact d'origine EXCHANGE mais copié dans Pop
    GetSMTPAddressForRecipient = ""
    On Error GoTo fin
    Dim PA As Outlook.propertyAccessor
    Const PR_SMTP_ADDRESS As String = _
          "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
    Set PA = recip.propertyAccessor
    'Debug.Print recip.Name & " SMTP=" _
     & pa.GetProperty(PR_SMTP_ADDRESS)
    GetSMTPAddressForRecipient = PA.GetProperty(PR_SMTP_ADDRESS)
fin:
    If GetSMTPAddressForRecipient = "" Then GetSMTPAddressForRecipient = recip
End Function

[Kornephoros]

Impeccable.

Je ne comprend pas tout le code mais ça marche.

Merci

Si tu pouvais un peu m'expliquer les grandes lignes de ton code ça serait la cerise sur le gâteau