Lister mails archives PST Outlook

Edit : je viens de me rendre compte que j'ai posté directement dans Excel, plutôt que dans le sous forum "Macro et VBA", toutes mes excuses :calim2:

Bonjour à tous,

Je travaille sur un volume important de mails sauvegardés en fichiers PST. J'aimerai pouvoir lister tous ces mails dans un fichier Excel avec l'intitulé du mail, la date, et l'adresse mail du correspondant. Ces fichiers PST sont ouverts sur Outlook. J'ai un début de macro qui me permet de lister comme voulu les mails dans ma boîte de réception, mais je ne trouve pas comment changer le code pour que les dossiers autres soient listés :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Liste_mails()   Dim olapp As New Outlook.Application Dim ns As Object, Dossier As Object Dim OlExp As Object Dim i As Object Dim mybody() As String Dim fromsender As String   Set ns = olapp.GetNamespace("MAPI") Set Dossier = ns.GetDefaultFolder(olFolderInbox) b = 2 For Each i In Dossier.Items Cells(b, 1) = i.Subject Cells(b, 2) = i.ReceivedTime Cells(b, 3) = i.SenderEmailAddress b = b + 1 Next i End Sub

---

Ci-joint également, un screenshot de mon Outlook. La recherche devrait ignorer la boite de réception, et se faire sur les dossiers en bas (Boite de stock, Budgets...), ces derniers étant également constitués de sous dossiers...

Merci d'avance pour votre aide :)