Note: The other languages of the website are Google-translated. Back to English
English English

Come espandere automaticamente tutte le cartelle all'avvio di Outlook?

In generale, se si espande o si comprime una cartella nel riquadro di spostamento e quindi si chiude Outlook, la cartella rimarrà in espansione o compressa al riavvio di Outlook. Ma ora, esiste un modo per espandere automaticamente tutte le cartelle all'avvio di Outlook? Questo articolo introdurrà un VBA per completare l'attività.

Espandi automaticamente tutte le cartelle all'avvio di Outlook con VBA

Scheda Office: abilita la modifica a schede e la navigazione in Office e semplifica notevolmente il lavoro ...
Kutools for Outlook: porta 100 potenti funzionalità avanzate a Microsoft Outlook
  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple per regole; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo di posta è nella lista BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email contemporaneamente; Aggiunta automatica di saluto quando rispondi; Aggiungi automaticamente data e ora all'oggetto ...
  • Strumenti per gli allegati: Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto automaticamente ... Rapporto rapido, Conta le email selezionate, Rimuovi messaggi e contatti duplicati ...
  • Più di 100 funzioni avanzate lo faranno risolvi la maggior parte dei tuoi problemi in Outlook 2010-2019 e 365. Funzionalità complete Prova gratuita di 60 giorni.

freccia blu freccia destraEspandi automaticamente tutte le cartelle all'avvio di Outlook con VBA

Questo metodo introdurrà un VBA per espandere automaticamente tutte le cartelle nel riquadro di spostamento all'avvio di Outlook. Si prega di applicare questo VBA come segue:

1. Stampa altro + F11 tasti contemporaneamente per aprire la finestra di Microsoft Visual Basic, Applications Edition.

2. Espandere il file Progetto 1 e Oggetti di Microsoft Outlook nel riquadro Progetto, fare doppio clic per aprire il file Questa sessione di Outlook finestra, quindi incolla sotto il codice VBA al suo interno.

VBA: espandi automaticamente tutte le cartelle in Outlook

Private Sub Application_Startup()
  'Update by ExtendOffice 2022/08/03
  ExpandAllFolders
End Sub

Public Sub ExpandAllFolders()
  Dim xNameSpace As Outlook.NameSpace
  Dim xFlds As Outlook.Folders
  Dim xCurrFld As Outlook.MAPIFolder
  Dim xFld As Outlook.MAPIFolder
  Dim xExpandDefaultStoreOnly As Boolean
  Dim xModule As NavigationModule
  On Error Resume Next
  xExpandDefaultStoreOnly = False
  Set xNameSpace = Application.Session
  Set xModule = Application.ActiveExplorer.NavigationPane.CurrentModule
  Set xCurrFld = Application.ActiveExplorer.CurrentFolder
  If xExpandDefaultStoreOnly = True Then
    Set xFld = xNameSpace.GetDefaultFolder(olFolderInbox)
    Set xFld = xFld.Parent
    Set xFlds = xFld.Folders
    LoopFolders xFlds, True
  Else
    LoopFolders xNameSpace.Folders, True
    LoopFolders xNameSpace.Folders, False
  End If
  DoEvents
  Set Application.ActiveExplorer.NavigationPane.CurrentModule = xModule
  Set Application.ActiveExplorer.CurrentFolder = xCurrFld
  Set xNameSpace = Nothing
  Set xModule = Nothing
  Set xCurrFld = Nothing
End Sub

Private Sub LoopFolders(Flds As Outlook.Folders, ByVal All As Boolean)
  Dim xFld As Outlook.MAPIFolder
  On Error Resume Next
  For Each xFld In Flds
    Select Case All
      Case True
        If xFld.DefaultItemType = olMailItem Then
          Set Application.ActiveExplorer.CurrentFolder = xFld
          DoEvents
          If xFld.Folders.Count > 0 Then
            LoopFolders xFld.Folders, All
          End If
        End If
      Case False
        Set Application.ActiveExplorer.CurrentFolder = xFld
        DoEvents
        If xFld.Folders.Count > 0 Then
          LoopFolders xFld.Folders, All
        End If
    End Select
  Next
End Sub

3. Salvare il codice e chiudere la finestra di Microsoft Visual Basic, Applications Edition.

D'ora in poi, al riavvio di Outlook, tutte le cartelle verranno automaticamente espanse in Outlook. Note:: Questo VBA non può aprire le cartelle di ricerca compresse al riavvio di Outlook.


freccia blu freccia destraArticoli Correlati


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Commenti (5)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Grazie mille.. Ha risolto il mio problema. :)
Questo commento è stato fatto dal moderatore sul sito
Non riesco affatto a far funzionare questa macro. Tutte le cartelle nel riquadro Cartelle non vengono affatto espanse. Sto usando Outlook 2021. C'è qualche istruzione che ho perso?
Questo commento è stato fatto dal moderatore sul sito
Hi there,
Abbiamo aggiornato il codice, riprova. 🙂
Amanda
Questo commento è stato fatto dal moderatore sul sito
Neanche io sono riuscito a far funzionare questa macro.
Questo commento è stato fatto dal moderatore sul sito
Hi there,
Abbiamo aggiornato il codice, riprova. 🙂
Amanda
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite