Outlook : macro extraction données

Bonjour,

Sur Outlook, j'aimerai extraire des données dans un fichier Excel, en fonction du mail.

En fonction de l'adresse mail du destinataire, j'aimerai extraire automatiquement via une macro l'adresse mail de l'expéditeur, l'objet et la date-heure de réception.

J'ai testé, en vain..

Âmes charitables, j'ai besoin de vos lumières !

Merci de votre aide

Bonjour,

Exemple de code :

Option Explicit

Sub Mails_reçus()

    'définition variables
    Dim olk As Object, Dossier As Object, message As Object, éléments_reçus As Object
    Dim Comptes_messagerie()
    Dim i As Long

    '// création objet instance application Outlook
    Set olk = CreateObject("Outlook.Application")

    '// définition Comptes de messagerie
    Comptes_messagerie = Array("adresse1", "adresse2")

    '// balayage Dossiers Outlook
    For Each Dossier In olk.GetNamespace("MAPI").Folders
        If UBound(Filter(Comptes_messagerie, Dossier.Name)) > -1 Then
            'assignation éléments reçus du Compte de messagerie
            Set éléments_reçus = Dossier.Folders("Boîte de Réception")

            'balayage messages reçus
            For Each message In éléments_reçus.Items
                With ActiveSheet
                    i = .Columns("A").Find("").Row
                    .Cells(i, "A") = message.SentOnBehalfOfName
                    .Cells(i, "B") = message.Subject
                    .Cells(i, "C") = message.ReceivedTime
                End With
            Next message
        End If
    Next Dossier

    '// libération objet instance application outlook
    Set olk = Nothing

End Sub

Bonjour,

Tu peux stp m'expliquer un peu ton code.

Où est-ce que j'indique mon adresse mail et l'adresse mail de l'expéditeur ?

Bonsoir,

    '// définition Comptes de messagerie
    Comptes_messagerie = Array("ton adresse mail"")

L' adresse mail de l'expéditeur sera obtenue par cette instruction :

.Cells(i, "A") = message.SentOnBehalfOfName