carnet Outlook et résolution d'adresse mail [Résolu]

[Damran]

Bonjour,

Je cherche à récupérer les mails du carnet outlook pour les utiliser avec access.
Moulte solutions sont présentées ici même et j'ai donc pu récupérer ces adresses.
Seulement voilà, l'adresse que je récupère (quelque soit la méthode utilisée) est d'un format que je connais pas, et que je n'arrive pas à résoudre.
Cela se présente ainsi:
"EX:/o=QUELQUECHOSE/ou=BLABLA/cn=Exchange 2003/cn=nom.prenom"

Si je colle tel quel dans un champs "To" ou "CC", cela fonctionne.
Mais j'aimerai bien présenter cette info sous un format plus courrant, soit le classique "nom@domaine.ext"

Merci d'avance pour votre aide.

Damran

[Damran]

J'ai trouvé !

Grâce à CDO:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Set objSession = CreateObject("MAPI.session")
objSession.Logon 'profileName:="MonProfil"
 
' Get current user object
Set objAddressEntry = objSession.CurrentUser
 
' Get the address entry ID
strAddressEntryID = objAddressEntry.id
 
' Get the SMTP address
strEMailAddress = objSession.GetAddressEntry(strAddressEntryID).Fields(CdoPR_EMAIL)
 
' Display the SMTP address of current user
MsgBox "SMTP address of current user: " & strEMailAddress

La partie à modifier si vous sortez tout vos contact :

Code :

1
2
3
4
5
6
 
' Get the address entry ID
strAddressEntryID = objAddressEntry.id
 
' Get the SMTP address
strEMailAddress = objSession.GetAddressEntry(strAddressEntryID).Fields

[Thierry_94]

Bonjour,
Je recherche également à récupérer une adresse lisible mais pour un mail reçu dans ma boite mail. Comment peut-on faire car je n'ai pas bien compris comment utiliser le code donné dans votre réponse.
Merci d'avance