¿Cómo expandir automáticamente todas las carpetas al iniciar Outlook?

Author: Kelly Last Modified: 2025-08-06

Normalmente, cuando expandes o contraes una carpeta en el Panel de Navegación de Outlook y luego cierras el programa, la carpeta conserva su estado expandido o contraído al volver a abrir Outlook. Sin embargo, ¿qué pasa si deseas que todas las carpetas se expandan automáticamente cada vez que inicias Outlook? Este artículo proporciona una solución VBA para lograr precisamente eso.

Expandir automáticamente todas las carpetas al iniciar Outlook usando VBA

Expandir automáticamente todas las carpetas al iniciar Outlook usando VBA

Esta guía demostrará cómo usar un script VBA para expandir automáticamente todas las carpetas en el Panel de Navegación cada vez que inicies Outlook. Sigue estos pasos para implementar el script VBA:

Presiona simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic for Applications.

Expande el Proyecto 1 y Objetos de Microsoft Outlook en el Proyecto panel, haz doble clic para abrir la Ventana ThisOutlookSession y luego pega el siguiente código VBA en ella.

VBA: Expandir automáticamente todas las carpetas en Outlook

Public WithEvents GEx As Explorer
Public GFlag As Boolean
Private Sub Application_Startup()
  'Update by ExtendOffice 2023/12/08
  Set GEx = Application.ActiveExplorer
  GFlag = False
End Sub

Private Sub GEx_SelectionChange()
  If GFlag = False Then
    ExpandAllFolders
  End If
  GFlag = True
End Sub

Public Sub ExpandAllFolders()
  Dim xNameSpace As Outlook.NameSpace
  Dim xFlds As Outlook.Folders
  Dim xCurrFld As Outlook.MAPIFolder
  Dim xFld As Outlook.MAPIFolder
  Dim xExpandDefaultStoreOnly As Boolean
  Dim xModule As NavigationModule
  On Error Resume Next
  xExpandDefaultStoreOnly = False
  Set xNameSpace = Application.Session
  Set xModule = Application.ActiveExplorer.NavigationPane.CurrentModule
  Set xCurrFld = Application.ActiveExplorer.CurrentFolder
  If xExpandDefaultStoreOnly = True Then
    Set xFld = xNameSpace.GetDefaultFolder(olFolderInbox)
    Set xFld = xFld.Parent
    Set xFlds = xFld.Folders
    LoopFolders xFlds, True
  Else
    LoopFolders xNameSpace.Folders, True
    LoopFolders xNameSpace.Folders, False
  End If
  DoEvents
  Set Application.ActiveExplorer.NavigationPane.CurrentModule = xModule
  Set Application.ActiveExplorer.CurrentFolder = xCurrFld
  Set xNameSpace = Nothing
  Set xModule = Nothing
  Set xCurrFld = Nothing
End Sub

Private Sub LoopFolders(Flds As Outlook.Folders, ByVal All As Boolean)
  Dim xFld As Outlook.MAPIFolder
  On Error Resume Next
  For Each xFld In Flds
    Select Case All
      Case True
        If xFld.DefaultItemType = olMailItem Then
          Set Application.ActiveExplorer.CurrentFolder = xFld
          DoEvents
          If xFld.Folders.Count > 0 Then
            LoopFolders xFld.Folders, All
          End If
        End If
      Case False
        Set Application.ActiveExplorer.CurrentFolder = xFld
        DoEvents
        If xFld.Folders.Count > 0 Then
          LoopFolders xFld.Folders, All
        End If
    End Select
  Next
End Sub

Guarda el código y cierra la ventana de Microsoft Visual Basic for Applications.

A partir de ahora, al reiniciar Outlook, todas las carpetas se expandirán automáticamente en Outlook.

Notas:

Este VBA no puede abrir las carpetas de búsqueda colapsadas al reiniciar Outlook.
Para asegurarte de que el script VBA funcione correctamente, es esencial ajustar la configuración de macros en Outlook. Por favor, ve a Archivo > Opciones > Centro de Confianza > Configuración del Centro de Confianza > Configuración de Macros, y selecciona la opción Habilitar todas las macros. Esta configuración permite que el script VBA se ejecute sin restricciones.

Asistente de Correo AI en Outlook: Respuestas más Inteligentes, Comunicación más Clara (¡magia con un solo clic!) GRATIS

Simplifica tus tareas diarias en Outlook con el Asistente de Correo AI de Kutools para Outlook. Esta poderosa herramienta aprende de tus correos electrónicos anteriores para ofrecerte respuestas inteligentes y precisas, optimizar el contenido de tus correos y ayudarte a redactar y perfeccionar mensajes sin esfuerzo.

Esta función admite:

Respuestas Inteligentes: Obtén respuestas elaboradas a partir de tus conversaciones pasadas, personalizadas, precisas y listas para usar.
Contenido Mejorado: Refina automáticamente el texto de tus correos electrónicos para mayor claridad e impacto.
Redacción sin Esfuerzo: Solo proporciona palabras clave y deja que la IA haga el resto, con múltiples estilos de escritura.
Extensiones Inteligentes: Amplía tus ideas con sugerencias contextualizadas.
Resúmenes: Obtén resúmenes concisos de correos electrónicos largos al instante.
Alcance Global: Traduce tus correos electrónicos a cualquier idioma fácilmente.

Esta función admite:

Respuestas inteligentes de correo electrónico
Contenido optimizado
Borradores basados en palabras clave
Extensión inteligente de contenido
Resumen de correos electrónicos
Traducción multilingüe

¡Lo mejor de todo es que esta función es completamente gratis para siempre! No esperes más, ¡descarga ahora el Asistente de Correo AI y disfruta!