Las cookies nos ayudan a ofrecer nuestros servicios. Al utilizar nuestros servicios, usted acepta el uso de cookies.
Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Registrate
x

or

¿Cómo abrir todas las subcarpetas de Outlook?

Si crea múltiples subcarpetas en sus carpetas de Outlook, ¿cómo podría abrir o expandir todas estas subcarpetas inmediatamente? En este artículo, presentaré un código VBA útil para que pueda resolver este trabajo.

Abra o expanda todas las subcarpetas de Outlook con el código VBA


Abra o expanda todas las subcarpetas de Outlook con el código VBA

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

1. Mantenga presionado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue la siguiente macro en la Ventana del Módulo.

Código VBA: Abra todas las subcarpetas de Outlook:

Sub ExpandAllMailFolders () Dim xCurrentFolder As Folder Dim xAllFolders As Folders Dim xFolder As Folder On Error Reanudar Próximo Set xCurrentFolder = Application.ActiveExplorer.CurrentFolder Set Parques de las partes de la piscina. ActiveExplorer.CurrentFolder = xCurrentFolder End Sub Sub Process Processpolders (ByVal CurFolder As Folder) Dim xSubfolder As Folder On Error reanudar Siguiente Si CurFolder.DefaultIpreperpciaperperperperperperperperforperperperperperperforperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperperpertropeaperperperperperpertroperationPortunidadPortunidadPolucas de la puñeta de puercoPulgares de la vida Período de la PCParqueCorriente Período de la PerforaciónPorea Período de la Pobreza Luego salga de Sub para cada xSubfolder en CurFolder.Folders Llame a ProcessFolders (xSubfolder) Next End Sub

3. Entonces presione F5 clave para ejecutar este código, y todas las subcarpetas de todas las cuentas de Outlook se han expandido, vea la captura de pantalla:

doc ampliar subcarpetas 1



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.

Be the first to comment.