Cómo expandir o contraer rápidamente todas las carpetas de correo en Outlook

En ocasiones, es posible que desee expandir o contraer todas las carpetas de correo electrónico en el panel de navegación de correo electrónico de una sola vez. En ese caso, puede utilizar los métodos que se presentan en esta publicación.

Por algunas razones, como revisar los correos electrónicos en diferentes carpetas y subcarpetas de manera más conveniente, es posible que desee expandir todas las carpetas de correo. Del mismo modo, cuando crea que mantener todas las carpetas expandidas hace que el panel de navegación de su correo parezca demasiado complejo, es posible que desee contraer todas las carpetas. En este punto, si los expande o contrae manualmente haciendo clic uno por uno, será considerablemente tedioso. Por lo tanto, debe desear un método mucho más rápido que pueda expandir o contraer todas las carpetas de correo de una sola vez. Ahora, aquí les revelaremos este medio.

Expandir todas las carpetas de correo

1. En primer lugar, inicie su programa Outlook de forma habitual.
2. Luego presione los botones de tecla "Alt + F11" en la ventana principal de Outlook.
3. A continuación, en la ventana del editor de Outlook VBA, abra un módulo en blanco.
4. Posteriormente, copie los siguientes códigos VBA en este módulo.

Sub ExpandAllMailFolders()
    Dim objCurrentFolder As Outlook.Folder
    Dim objPSTFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder

    Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
    'Specify a specific pst file
    'Change "PSTName" to the name of your own Outlook PST file
    Set objPSTFolders = Application.Session.Folders("PSTName").Folders
 
    For Each objFolder In objPSTFolders
        Call ProcessFolder(objFolder)
    Next

    DoEvents
    Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
End Sub

Sub ProcessFolder(ByVal objCurFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    'Only expand the mail folders
    If objCurFolder.DefaultItemType = olMailItem Then
       Set Application.ActiveExplorer.CurrentFolder = objCurFolder
       DoEvents
 
       'Process all subfolders recursively
       If objCurFolder.Folders.Count > 0 Then
          For Each objSubfolder In objCurFolder.Folders
              Call ProcessFolder(objSubfolder)
          Next
       End If
    End If
End Sub

5. Después de eso, puede hacer clic en el botón "Ejecutar sub" en la barra de herramientas o presionar la tecla F5 para activar la nueva macro.
6. Inmediatamente, se expandirán todas las carpetas de correo en el archivo PST de Outlook predefinido.

Contraer todas las carpetas de correo

En comparación con expandir todas las carpetas de correo, contraerlas es mucho más fácil. Puede simplemente contraer la raíz del archivo PST de Outlook específico y luego expandirlo nuevamente. Para hacerlo, puede hacer clic en la flecha frente a la carpeta de nivel superior del archivo PST, como en la siguiente captura de pantalla. Después de eso, vuelva a hacer clic en la flecha para expandir el archivo. Puede ver que todas las subcarpetas se han contraído.

Maneje los molestos errores de PST de manera flexible

¿Alguna vez ha recibido algún mensaje de error durante el uso de Outlook? Si ha utilizado Outlook durante décadas, debe haberlo hecho. Sin duda alguna, Outlook es vulnerable a errores. Por lo tanto, para proteger mejor sus datos de Outlook, debe realizar una copia de seguridad de su archivo PST de Outlook de forma periódica. Además, se sugiere mantener un Corrección de PST herramienta en las proximidades, como DataNumen Outlook Repair.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo sql dañado y productos de software de reparación de Outlook. Para más información visite www.datanumen.com