Récupération données mail

Bonjour,

je reçois, tous les jours, à n'importe quel heure, un mail identique sous la forme suivante :

date : variable, à toute heure, tout les jours, etc.

mail expéditeur : adresse identique

Sujet : nom identique

mail destinataire : variable selon l'utilisateur

corps : (variable)

Bonjour,

la facture n° XXXX de XX € pour le client X.

informations: XXXXXXXX (exemple : payée)

commentaires: XXXX

fin du mail.

est il possible d'enregistrer l'ensemble de ces mails dans un fichier contenant, dans chaque colonne, la reprise des élements citée ci-dessous ?

1 ligne par mail ,

exemple :

Colonne 1 = date

colonne 2 = expéditeur,

j'ai vu sur le forum, qu'un sujet existé déjà, cependant, je pense que mes notions actuelles ne me permettent pas d'en tirer un résultat fonctionnel.

merci beaucoup,

Edit :

Sub LitMail()

  Set olapp = CreateObject("Outlook.Application")
  Set olns = olapp.GetNamespace("MAPI")
  Set olxFolder = olns.GetDefaultFolder(6)

  Sheets("Feuil1").Select 'Nom de la feuille qui reçois l'info

 On Error Resume Next

  n = 2

  For Each i In olxFolder.Items

    Cells(n, 1) = i.Subject 'affiche l'objet du mail et le place dans un commentaire
    Cells(n, 2).ClearComments 'Efface le Commentaire
    Cells(n, 2).AddComment Text:=Replace(i.Body, Chr(13), "")
    Cells(n, 2).Comment.Shape.Height = 150
    Cells(n, 2).Comment.Shape.Width = 300
    Cells(n, 3) = i.SenderName ' Adresse expediteur
    Cells(n, 4) = i.CreationTime 'Date & H de la création
  n = n + 1

  Next

End Sub

ce code marche très bien, sauf que je connais pas le chemin pour récupérer le mail dans un dossier en particulier....

si quelqu'un peut m'aider ?

j'ai trouvé tout seul,

Merci

Bonjour,

petite mise à jour de mon poste, ici.

j'ai maintenant réussi a bien extraire les mails de tel, ou tel dossier de ma messagerie.

cependant, cela fait quelques temps que je recherche maintenant comment "borner" l'extraction.

exemple : extrait les mails reçu entre le 01/10/2017 et le 31/10/2017.

si quelqu'un peux m'aider ...

merci beaucoup,

J'up le sujet, car je n'ai malheureusement pas encore trouvé de solution.. (après avoir recherché toute la journée.. )

merci

Bonsoir,

Il faut utiliser la propriété i.SentOn qui donne la date et l'heure du mail.

Bonjour,

Je reviens vers vous, toujours au sujet des dates, je remercie pour le i.sentOn, très fonctionnel.

voici un extrait de mon code actuel, sur lequel je souhaiterai intégrer 1 inputbox (ou 2) pour insérer la dates de l'intervalle que l'utilisateur souhaite :

If i.senton > #4/6/2017# And i.senton < #4/8/2017# Then

malheureusement, je rame un peu de ce coté la, si quelqu'un avait une idée...

MERCI

Bonjour,

ci-jointe une proposition de saisie de tes dates avec ta procédure à insérer dans le module récup_mails.

Bonjour,

La réponse à l'air TOP, .. sauf .. ( que bien entendu vu mon niveau..) je ne sais pas l'appliquer dans mon fichier ... ( je suis un boulet.. ahah, mais j'essaie de progresser un max..).

merci encore..

Edit : Merci beaucoup, j'avais simplement oublié l'argument "public sub...."

MERCI !