Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Accedi
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 per Outlook: porta le funzionalità avanzate di 100 su Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole per l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e funzionalità più automatiche ...
  • Avviso BCC - mostra il messaggio quando si tenta di rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano gli allegatie altro ancora ricorda le funzionalità ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiungi saluto automatico quando rispondi; Aggiungi data nell'oggetto ...
  • Strumenti allegati: gestisci tutti gli allegati in tutti i messaggi, Distacco automatico, Comprimi tutto, Rinomina tutto, Salva tutto ... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti di consuetudine; Rimuovi email e contatti duplicati... Ti consente di fare in modo più intelligente, più veloce e migliore in Outlook.
scheda kutools outlook kutools tab 1180x121
tiro kutools outlook kutools più tab 1180x121
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.
    Doug Fisher · 9 months ago
    I have been looking for this answer for a long time! Thank you.