Trouver l'adresse de l'expediteur d'un mail (vba) [Résolu]

[amalane]

Bonjour,

Je réalise une macro vba sur outlook pour filtrer certains mails, mais je n'arrive pas à récupérer l'adresse mail de l'expéditeur.
Si j'utilise item.sendername, je récupère le nom complet de la personne, mais pas l'adresse mail
si j'utilise item.reply.to, idem.

Quelqu'un connait-il la bonne méthode ?

Merci par avance

[ouskel'n'or]

Regarde là, tu as la réponse.
J'ai simplement fait une recherche sur le forum VBA avec "Mail & Expéditeur" comme mots clé
Faut y penser

[amalane]

Je connaissais la commande sendername, mais elle ne renvoie pas le mail de l'expediteur, mais son nom complet...
Dans le cas ou l'adresse mail est dans ton carnet d'adresse et qu'il est parametré comme ca :
Monsieur Machin truc <machin.truc@mail.com>
sendername te renvoie "Monsieur Machin truc", alors que moi je veux "machin.truc@mail.com"

Et ça, je trouve vraiment pas...

[amalane]

Pour info, j'ai trouvé une solution :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub GetEmailAddressReply() 
   Dim objItem As MailItem 
   Dim objReply As MailItem 
   Dim objRecips As Outlook.Recipients 
   Dim objRecip As Outlook.Recipient 
 
   Set objItem = Application.ActiveInspector.CurrentItem 
   Set objReply = objItem.Reply 
 
   Set objRecips = objReply.Recipients 
   For Each objRecip In objRecips 
      Debug.Print objRecip.Address 
   Next 
 
   Set objItem = Nothing 
   Set objReply = Nothing 
   Set objRecip = Nothing 
End Sub