Como abrir todas as subpastas no Outlook?

Author: Xiaoyang Last Modified: 2025-08-06

Se você criou várias subpastas em suas pastas do Outlook, como poderia abrir ou expandir todas essas subpastas imediatamente? Neste artigo, vou apresentar um código VBA útil para resolver essa tarefa.

Abrir ou expandir todas as subpastas no Outlook com código VBA

Abrir ou expandir todas as subpastas no Outlook com código VBA

Por favor, aplique o seguinte código VBA para expandir todas as subpastas de todas as contas do Outlook:

1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole a seguinte macro na Janela do Módulo.

Código VBA: Abrir todas as subpastas no 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. Em seguida, pressione a tecla F5 para executar este código, e todas as subpastas em todas as contas do seu Outlook serão expandidas, veja a captura de tela: