Como abrir todas as subpastas no Outlook?

Se criar várias subpastas nas suas pastas do Outlook, como pode abri-las ou expandi-las imediatamente todas de uma só vez? Neste artigo, apresentamos um código VBA útil para resolver essa tarefa.

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

---

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

Aplique o seguinte código VBA para expandir todas as subpastas de todas as contas do Outlook:

1. Prima e mantenha premidas 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 do 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, prima a tecla F5 para executar este código e todas as subpastas em todas as contas do seu Outlook serão expandidas, conforme ilustrado na captura de ecrã: