Cómo expandir automáticamente todas las carpetas mediante VBA al iniciar Outlook

Muchos usuarios desean que todas las carpetas se expandan automáticamente al abrir Outlook. Sin embargo, Outlook no ofrece esta función de forma nativa. Por lo tanto, para lograrlo, es necesario usar código VBA. Esta publicación ofrece una guía rápida.

Es posible que hayas creado muchas subcarpetas dentro de las carpetas predeterminadas en Outlook. Ante tantas carpetas, para acceder a ellas rápidamente en cualquier momento, es posible que desees mantener todas las carpetas expandidas permanentemente. El primer paso debe ser configurar Outlook para que expanda automáticamente las carpetas al iniciarse. Obviamente, Outlook no tiene una función nativa para esto. Por lo tanto, debes usar macros. A continuación, te enseñaremos cómo lograrlo con VBA. En cuanto a cómo aplicar VBA, puedes consultar otro artículo:Cómo ejecutar código VBA en su Outlook".

Expandir automáticamente todas las carpetas al iniciar Outlook.

1. Para empezar, presione "Alt + F11" en su Outlook para acceder al editor de VBA.
2. Luego, en la nueva ventana, coloque el código en el proyecto "ThisOutlookSession".

'Auto expand all folders on startup
Private Sub Application_Startup()
    Call ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
    Dim objCurrentFolder As Outlook.Folder
    Dim objStore As Outlook.Store
    Dim objFileFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
   
    Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
 
    'Process all email accounts in your Outlook
    For Each objStore In Outlook.Application.Session.Stores
        Set objFileFolders = objStore.GetRootFolder.Folders
 
        For Each objFolder In objFileFolders
            Call LoopFolders(objFolder)
        Next
 
        DoEvents
        Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
    Next
End Sub

Sub LoopFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    Set Application.ActiveExplorer.CurrentFolder = objCurFolder
    DoEvents
 
    'Process all subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call LoopFolders(objSubfolder)
       Next
    End If
End Sub

3. Después de eso, cierre el editor de VBA.
4. Posteriormente, salga correctamente de la aplicación Outlook.
5. Más tarde, abre Outlook. En ese momento, la macro se ejecutará automáticamente.
6. Una vez que se inicia Outlook, se puede observar que todas las carpetas se han expandido, como se muestra en la siguiente figura.

Mantenga a raya todas las macros maliciosas

¿Alguna vez ha recibido correos electrónicos adjuntos con archivos sospechosos o incrustados con enlaces desconocidos? Por lo general, al enfrentarse a estos correos electrónicos, debe aumentar su vigilancia. Nunca debe confiar fácilmente en ellos, ya que pueden ser portadores de virus. Una vez que descargue los archivos adjuntos o abra los enlaces, no solo Outlook, sino también la computadora podría ser atacada. En ese momento, tienes que reparar Outlook expediente. Podría ser bastante complicado a menos que tenga una copia de seguridad de Outlook actualizada o haga uso de una poderosa herramienta de recuperación, 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 Server corrupción y productos de software de reparación de Outlook. Para más información visite www.datanumen.com