Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

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

En general, si expande o contrae una carpeta en el Panel de navegación y luego cierra Outlook, la carpeta seguirá expandiéndose o contrayéndose al reiniciar Outlook. Pero ahora, ¿hay alguna manera de expandir todas las carpetas automáticamente al iniciar Outlook? Este artículo presentará un VBA para completar la tarea.

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

Kutools for Outlook: 100 + Nuevas herramientas avanzadas para Outlook.
Office Tab: Habilitar la edición con pestañas y la navegación en Office, Al igual que Chrome, Firefox, IE 8 / 9 / 10.
Menú clásico: Recuperar los menús antiguos y las barras de herramientas a Office 2007, 2010, 2013, 2016 y 2019.

flecha azul burbuja derechaExpandir automáticamente todas las carpetas al iniciar Outlook con VBA

Este método introducirá un VBA para expandir automáticamente todas las carpetas en el Panel de navegación cuando inicie Outlook. Por favor aplique este VBA de la siguiente manera:

1. Prensa otro + F11 teclas simultáneamente para abrir la ventana Microsoft Visual Basic para Aplicaciones.

2. Ampliar la proyecto 1 y el Objetos de Microsoft Outlook en el panel Proyecto, haga doble clic para abrir ThisOutlookSession ventana, y luego pegar debajo del código VBA.

VBA: expande automáticamente todas las carpetas en Outlook

Private Sub Application_Startup()
ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
On Error Resume Next
Dim Ns As Outlook.NameSpace
Dim Folders As Outlook.Folders
Dim CurrF As Outlook.MAPIFolder
Dim F As Outlook.MAPIFolder
Dim ExpandDefaultStoreOnly As Boolean

  ExpandDefaultStoreOnly = False

  Set Ns = Application.GetNamespace("Mapi")
Set CurrF = Application.ActiveExplorer.CurrentFolder

  If ExpandDefaultStoreOnly = True Then
Set F = Ns.GetDefaultFolder(olFolderInbox)
Set F = F.Parent
Set Folders = F.Folders
LoopFolders Folders, True

  Else
LoopFolders Ns.Folders, True
End If

  DoEvents
Set Application.ActiveExplorer.CurrentFolder = CurrF
End Sub

Private Sub LoopFolders(Folders As Outlook.Folders, _
ByVal bRecursive As Boolean _
)
Dim F As Outlook.MAPIFolder

  For Each F In Folders
Set Application.ActiveExplorer.CurrentFolder = F
DoEvents

    If bRecursive Then
If F.Folders.Count Then
LoopFolders F.Folders, bRecursive
End If
End If
Next
End Sub

3. Guarde el código y cierre la ventana de Microsoft Visual Basic para Aplicaciones.

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 contraídas al reiniciar Outlook.


flecha azul burbuja derechaArtículos relacionados



Kutools for Outlook

Más que 100 Funciones avanzadas para Outlook 2010, 2013, 2016, 2019 y 365

Kutools de captura de pantalla para Outlook pequeño para banner 201812

Más características | Descargar libre | Solo $ 39.00 para cientos de funciones

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Selvi · 7 months ago
    Thank you so much.. It solved my problem. :)