I cookie ci aiutano i nostri servizi. Utilizzando i nostri servizi, l'utente accetta di utilizzare i cookie.
Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Log In
x
or
x
x
Registrati
x

or

Come si aprono tutte le sottocartelle da Outlook?

Se crei più sottocartelle nelle tue cartelle di Outlook, come potresti aprire o espandere immediatamente tutte queste sottocartelle? Questo articolo, introdurrò un codice VBA utile per voi per risolvere questo lavoro.

Apri o espandi tutte le sottocartelle da Outlook con il codice VBA


Apri o espandi tutte le sottocartelle da Outlook con il codice VBA

Si prega di applicare il seguente codice VBA per espandere tutte le sottocartelle da tutti gli account di Outlook:

1. Tenere premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incollare la seguente macro nella finestra del modulo.

Codice VBA: apre tutte le sottocartelle da Outlook:

Sub ExpandAllMailFolders () Dim xCurrentFolder As Folder Dim xAllFolders As Folders Dim xFolder As Folder On Error Riprendi Next Set xCurrentFolder = Application.ActiveExplorer.CurrentFolder Set xAllFolders = Application.Session.Folders Per ogni xFolder In xAllFolders Call ProcessFolders (xFolder) Next Set Application. ActiveExplorer.CurrentFolder = xCurrentFolder End Sub Sub ProcessFolders (ByVal CurFolder As Folder) Dim xSubfolder As Folder On Error Riprendi Next If CurFolder.DefaultItemType <> olMailItem Then Exit Sub Set Application.ActiveExplorer.CurrentFolder = CurFolder DoEvents If CurFolder.Folders.Count = 0 Quindi esci da Sub Sub per ogni xSubfolder In CurFolder.Folders chiama ProcessFolders (xSubfolder) Next End Sub

3. Quindi premere F5 chiave per eseguire questo codice e tutte le sottocartelle di tutti gli account di Outlook sono state espanse, vedi screenshot:

doc espandi sottocartelle 1



Kutools for Outlook

Più di 100 Funzioni avanzate per Outlook 2010, 2013, 2016, 2019 e 365

screen shot kutools per outlook minuscolo per banner 201812

Altre caratteristiche | Scarica gratis | Solo $ 39.00 per centinaia di funzioni

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.