[VBA][outlook] récupération des adresses mail [Résolu]

[arno2004]

Bonjour,

Comment faire, dans Outlook, pour récupérer l'adresse de l'expéditeur et l'adresse des destinataires?
j'utilise SenderName et Recipients, mais çà me donne que les noms...

merci d'avance

[GabriHell]

J'ai le même souci que toi !! ! Tu as trouvé la reponse à cette question ?
Merci

[arno2004]

Oui, en fait il faut que tu crées une réponse à ton message et que tu ailles récupérer le nom du déstinataire.

c'est une bidouille mais çà fonctionne bien et je n'ai pas trouvé d'autres solutions.

Je posterais le code demain...

a+
Arnaud

[Babyneedle]

1) Project ---> References --->Microsoft Outlook 9.0 Object Library *Click*
2) Clique ensuite sur Object Browser, la petite boite avec des bidules multicolores au dessus. En francais, probablement Explorateur D'Objets...
3) Dans le dropdown list le plus en haut et a gauche affichant "All libraries" (ou "Toutes les librairies"), selectionne Outlook
4) Dans la liste de classes, clique sur MailItem.
5) Dans le pane de droite tu devrais avoir la liste de toutes les proprietes.

Si les explications ne sont pas assez detaillees, tu peux au moins utiliser le nom exacte de cette propriete pour faire des recherches sur le web ou sur MSDN.

[arno2004]

Ok tout ce que tu me dis y'a pas de soucis, par contre je n'ai pas trouvé la propriété indiquant le mail de l'expéditeur...


Donc, comme je l'ai dit précédemment, voici le code que j'utilise.
Je créer une réponse au mail et je récupère le déstinataire, dont on a la propriété.

Code :

1
2
3
4
5
6
7
8
9
 
    Dim m As MailItem
    Set m = Outlook.ActiveExplorer.CurrentFolder.Items.GetFirst
    Dim ObjMailitem2 As MailItem
    Set ObjMailitem2 = m.Reply
    Dim Nom_Expediteur as string
 
    Nom_Expediteur = ObjMailitem2.Recipients(1).Address
    Set ObjMailitem2 = Nothing

a+