¿Cómo abrir todas las subcarpetas de Outlook?

Si ha creado varias subcarpetas dentro de sus carpetas de Outlook, ¿cómo puede abrirlas o expandirlas todas al instante? En este artículo, le presentamos un código VBA útil 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

Aplique el siguiente código VBA para expandir todas las subcarpetas de todas las cuentas de Outlook:

1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo y pegue 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. A continuación, pulse la tecla F5 para ejecutar este código y todas las subcarpetas de todas sus cuentas de Outlook se expandirán; consulte la captura de pantalla: