Hoe kunt u alle submappen in Outlook openen?

Als u meerdere submappen hebt aangemaakt binnen uw Outlook-mappen, hoe opent of vouwt u die dan allemaal tegelijk uit? In dit artikel introduceer ik een handige VBA-code waarmee u deze taak eenvoudig kunt uitvoeren.

Open of vouw alle submappen uit vanuit Outlook met VBA-code

---

Open of vouw alle submappen uit vanuit Outlook met VBA-code

Pas de volgende VBA-code toe om alle submappen uit te vouwen voor alle Outlook-accounts:

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module en plak de volgende macro in het modulevenster.

VBA-code: Open alle submappen vanuit 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. Druk vervolgens op F5 om deze code uit te voeren. Alle submappen in al uw Outlook-accounts zijn nu uitgevouwen. Zie de schermafbeelding: