[OL-2003] par vba récupérer l'emetteur d'un mail

[denis le breton]

Bonsoir
j'ai tenté ma chance coté du forum Excel, me voici du doté du forum Outlook
je pilote Outlook depuis Excel en vba
mais j'ai besoin de récupérer l'adresse mail émetteur
or quand on envoie un mail c'est le champ De qui n'apparait pas nécessairement mais surtout le remplissage de ce champ par le mail naturel de l'émetteur que je cherche à récupérer
Si quelqu'un a une idée
Merci
Denis

[carden752]

Bonjour,

as-tu ajouté la référence Outlook à ton projet?
Je dirai dans l'objet MailItem,la propriété SenderName (sous Excel)

[denis le breton]

Merci de ta réponse
heureusement ou hélas oui la référence Microsoft Outlook est cochée mais les champs ne me ramènent rien quand je veux récupérer l'adresse mail emetteur
Je cherche encore
Denis

[pgz]

Bonsoir.

Tu peux accéder à l'adresse du compte par défaut

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim olApp As Outlook.Application
Dim myNameSp As Outlook.Namespace
Dim sSenderEmailAdr As String
 
Set olApp = GetObject(, "OUTLOOK.APPLICATION")
Set myNameSp = olApp.GetNamespace("MAPI")
 
sSenderEmailAdr = myNameSp.Accounts(myNameSp.CurrentUser.Name).SmtpAddress
MsgBox sSenderEmailAdr
 
lblExit:
    Set myNameSp = Nothing
    Set olApp = Nothing

Cela fonctionne sur ma machine avec office 2007.

Cordialement,

PGZ