Discussion :

[the-malco]

Bonjour,
Je travaille sur une macro vba/excel qui permet d'extraire toutes les données (expéditeur, destinataires, object, corps..) d'outlook.
Le challenge est de pouvoir récupérer les destinataires avec leurs noms de domaines.
Etant donnée que les destinataires peuvent être en destinataires principales (To) et/ou en copie (CC), mon problème est le suivant :
- j'ai pu récupérer les destinataires principales avec leurs noms de domaines via le code suivant :

Code :

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

1
2
3
4
5
Dim email As Outlook.MailItem
Dim Destinataire          
For Each Destinataire In email.Recipients
Cells(ri, 4).Value = Cells(ri, 4).Value + Destinataire & "<" & Destinataire.Address & ">"
Next Destinataire

Par contre pour les copies (CC) je n'arrive pas à trouver comment pouvoir récupérer la liste des destinataires avec leurs noms de domaines ...
J'espère que j'étais clair !!
Merci beaucoup pour votre coup de main !!

[Daniel.C]

Bonjour,

Pas testé, mais comme "CC" renvoie un string d'adresses en copie séparées par des ";" :

Code :

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

1
2
3
4
5
6
    If email.CC <> "" Then
        tabl = Split(email.CC, ";")
        For Each Item In tabl
            MsgBox Item
        Next
    End If

[the-malco]

Merci Daniel pour votre réponse,
J'ai essayé : email.CC, mais ça ne me donne que Prenom NOM (exemple Francis DUPONT au lieu de Francis.dupont@xxx.com). Mon objectif est de récupérer tous les emails avec les noms de domaine.

[Daniel.C]

Aïe, c'est le piège. L'association entre le nom et l'adresse doit se faire dans les contacts Outlook et je suis incapable d'aller plus loin. Si tu n'as pas d'autre réponse, pose ta question sur un forum Outlook.

[Daniel.C]

Personnellement je récupère le prénom et le nom avec l'adresse mail entre parenthèses.