¿Cómo abrir todas las subcarpetas de Outlook?

Author: Xiaoyang Last Modified: 2025-08-06

Si has creado múltiples subcarpetas bajo tus carpetas de Outlook, ¿cómo podrías abrir o expandir todas esas subcarpetas de forma inmediata? En este artículo, te presentaré un útil código VBA para resolver esta tarea.

Abrir o expandir todas las subcarpetas de Outlook con código VBA

Abrir o expandir todas las subcarpetas de Outlook con código VBA

Por favor, aplica el siguiente código VBA para expandir todas las subcarpetas de todas las cuentas de Outlook:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic for Applications.

2. Haz clic en Insertar > Módulo, y pega la siguiente macro en la Ventana del Módulo.

Código VBA: Abrir todas las subcarpetas de 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. Luego presiona la tecla F5 para ejecutar este código, y todas las subcarpetas en todas las cuentas de tu Outlook se habrán expandido, consulta la captura de pantalla: