Discussion :

[decoene]

J'arrives a extraire les messages de la boîte de réçeption d'Outlook, mais il me reste un problème.

// Je développe sous Delphi 7.
// J'ouvre l'accès à la boîte de réçeption

Code :

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

1
2
3
4
oNameSpace:=OutlookApplication.GetNameSpace('MAPI');
oNameSpace.Logon;
oDossier:=oNameSpace.GetDefaultFolder(olFolderInbox);
iNbMail:=oDossier.Items.Count;

J'énumère la liste des messages, mais mon problème est d'obtenir
l'adresse email de l'expéditeur !
<oDossier.Items(X).Sendername> me donne le nom de l'expéditeur
mais pas l'adresse email. J'ai cherché dans la doc Outlook (Xp)
mais je ne trouve pas comment récupérer l'adresse email de l'expéditeur.

Quelqu'un peut-il m'aider ?
Merci.

[Dunsany]

bonjour,

il semblerait que cela soit:
oDossier.Items(X).SenderEmailAddress

[decoene]

Merci pour la réponse oDossier.Items(X).SenderEmailAddress.
J'ai essayé mais cela ne fonctionne pas...

[Dunsany]

Il semblerait qu'Outlook protège l'accés aux adresses mail des expéditeurs.
Je t'invite à consulter l'aide VisualBasic concernant la propriété SenderEmailAddress