recupération adresse Email du créateur du mail

[fredl]

Bonjour à tous,

de excel, j'arrive à récupérer dans outlook sur le mail actif de ma boite de reception
- les destinataires .to
- l'objet .Subject
- le texte .body

mais pas le texte contenu dans la fenetre De: (personne ayant envoyé le mail)
J'ai essayé le .From qui ne marche pas...
Avez vous une idée?
Merci d'avance pour vos réponses.

Cordialement.
Frederic

 

[Gael]

Re : recupération adresse Email du créateur du mail

Bonjour Fredl, bonjour à tous,

J'ai trouvé cette macro sur code-sourceS (Réponse de Domi, inspiré de Michel Pierron) qui utilise "sendername":

Sub Reception()
    Dim objOL(1 To 4) As Object
    Dim i As Integer
    i = 1
    Set objOL(1) = CreateObject("Outlook.Application") ' application Outlook
    Set objOL(2) = objOL(1).GetNamespace("MAPI")        ' Crée l 'espace de travail Outlook
    Set objOL(3) = objOL(2).GetDefaultFolder(6)         ' Ouvre le dossier "Boite de réception"
    For Each objOL(4) In objOL(3).Items
        ActiveSheet.Cells(i, 2).Value = objOL(4).Sendername
        ActiveSheet.Cells(i, 3).Value = objOL(4).Subject
        ActiveSheet.Cells(i, 4).Value = objOL(4).Body
        i = i + 1
    Next
    For i = LBound(objOL) To UBound(objOL)
        Set objOL(i) = Nothing
    Next i
End Sub

@+

Gael

 

[fredl]

Re : recupération adresse Email du créateur du mail

.Sendername!!!!!!!

T'es trop fort Gael!
MERCI!!
Et en plus : ça marche!!
A Bientot
Frédéric

 

[Gael]

Re : recupération adresse Email du créateur du mail

Re,

Si tu veux l'adresse, tu peux utiliser "SenderEmailAddress".

@+

Gael