Come aprire tutte le sottocartelle da Outlook?

Author: Xiaoyang Last Modified: 2025-08-06

Se hai creato più sottocartelle all'interno delle tue cartelle di Outlook, come potresti aprire o espandere immediatamente tutte queste sottocartelle? In questo articolo, ti presenterò un utile codice VBA per aiutarti a risolvere questo compito.

Apri o espandi tutte le sottocartelle da Outlook con il codice VBA

Apri o espandi tutte le sottocartelle da Outlook con il codice VBA

Applica il seguente codice VBA per espandere tutte le sottocartelle di tutti gli account di Outlook:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla la seguente macro nella finestra del Modulo.

Codice VBA: Apri tutte le sottocartelle da 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. Quindi premi il tasto F5 per eseguire questo codice, e tutte le sottocartelle di tutti gli account di Outlook verranno espanse, vedi screenshot: