Comment ouvrir tous les sous-dossiers depuis Outlook ?

Lorsque vous créez plusieurs sous-dossiers dans vos dossiers Outlook, comment les ouvrir ou les développer tous instantanément ? Dans cet article, je vous présente un code VBA pratique pour accomplir cette tâche.

Ouvrir ou développer tous les sous-dossiers depuis Outlook avec un code VBA

---

Ouvrir ou développer tous les sous-dossiers depuis Outlook avec un code VBA

Veuillez appliquer le code VBA suivant pour développer tous les sous-dossiers de tous vos comptes Outlook :

1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module, puis collez la macro suivante dans la fenêtre du module.

Code VBA : Ouvrir tous les sous-dossiers depuis Outlook :

Sub ExpandAllMailFolders()
    Dim xCurrentFolder As Folder
    Dim xAllFolders As Folders
    Dim xFolder As Folder
    On Error Resume Next
    Set xCurrentFolder = Application.ActiveExplorer.CurrentFolder
    Set xAllFolders = Application.Session.Folders
    For Each xFolder In xAllFolders
        Call ProcessFolders(xFolder)
    Next
    Set Application.ActiveExplorer.CurrentFolder = xCurrentFolder
End Sub
Sub ProcessFolders(ByVal CurFolder As Folder)
    Dim xSubfolder As Folder
    On Error Resume Next
    If CurFolder.DefaultItemType <> olMailItem Then Exit Sub
    Set Application.ActiveExplorer.CurrentFolder = CurFolder
    DoEvents
    If CurFolder.Folders.Count = 0 Then Exit Sub
    For Each xSubfolder In CurFolder.Folders
        Call ProcessFolders(xSubfolder)
    Next
End Sub

3. Appuyez ensuite sur la touche F5 pour exécuter ce code ; tous les sous-dossiers de tous vos comptes Outlook seront alors développés. Voir la capture d’écran :