Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com obrir totes les subcarpetes d'Outlook?

Si creeu diverses subcarpetes a les carpetes d'Outlook, com podeu obrir o ampliar totes aquestes subcarpetes immediatament? En aquest article, presentaré un codi VBA útil per resoldre aquest treball.

Obriu o expandeixi totes les subcarpetes d'Outlook amb codi VBA


Obriu o expandeixi totes les subcarpetes d'Outlook amb codi VBA

Si us plau, apliqueu el codi VBA següent per ampliar totes les subcarpetes de tots els comptes d'Outlook:

1. Mantingueu premut el botó ALT + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. Clic Insereix > Mòduls, i enganxeu la macro següent a la finestra del mòdul.

Codi VBA: obre totes les subcarpetes d'Outlook:

Sub ExpandAllMailFolders () Dim xCurrentFolder As Folder Dim xAllFolders As Folders Dim xFolder As Folder On Error Resume Next Set xCurrentFolder = Application.ActiveExplorer.CurrentFolder Set xAllFolders = Application.Session.Folders per a cada xFolder En xAllFolders Truca a ProcessFolders (xFolder) Next Set Application. ActiveExplorer.CurrentFolder = xCurrentFolder End Sub Sub ProcessFolders (ByVal CurFolder As Folder) Dim xSubfolder As Folder On Error Reprendre Next Si CurFolder.DefaultItemType <> olMailItem Then Exit Sub Set Application.ActiveExplorer.CurrentFolder = CurFolder DoEvents Si CurFolder.Folders.Count = 0 A continuació, Exit Sub per a cada xSubfolder en CurFolder.Folders Trucar a les carpetes del procés (xSubfolder) Next End Sub

3. A continuació, premeu F5 clau per executar aquest codi, i totes les subcarpetes en tots els comptes del vostre Outlook s'han ampliat, vegeu la captura de pantalla:

doc expandeix subcarpetes 1



Kutools per Outlook

Més de 100 Advanced Functions for Outlook 2010, 2013, 2016, 2019 i 365

captura de pantalla kutools per a les minúscules perspectives per a l&#39;anunci 201812

Més funcions | Descàrrega gratuita | Només $ 39.00 per centenars de funcions

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.