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

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 :Sélectionner tout -Visualiser dans une fenêtre à part
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