Come espandere automaticamente tutte le cartelle tramite VBA all'avvio di Outlook

Molti utenti desiderano che tutte le cartelle vengano espanse automaticamente all'avvio di Outlook. In realtà, Outlook non supporta nativamente questa funzione. Pertanto, per ottenerla, è necessario utilizzare il codice VBA. Questo articolo vi fornirà una breve guida.

Potresti aver creato molte sottocartelle nelle cartelle predefinite di Outlook. Di fronte a così tante cartelle, per potervi accedere rapidamente in qualsiasi momento, potresti volerle mantenere sempre espanse. Il primo passo consiste nel fare in modo che Outlook espanda automaticamente le cartelle all'avvio. Ovviamente, Outlook non dispone di una funzione nativa per questo. Pertanto, è necessario utilizzare le macro. Successivamente, ti insegneremo come ottenere questo risultato con VBA. Per quanto riguarda l'applicazione di VBA, puoi fare riferimento a un altro articolo: "Come eseguire il codice VBA in Outlook".

Espansione automatica di tutte le cartelle all'avvio di Outlook

1. Per cominciare, premi "Alt + F11" in Outlook per accedere all'editor VBA.
2. Quindi, nella nuova finestra, inserisci il codice nel progetto "ThisOutlookSession".

'Auto expand all folders on startup
Private Sub Application_Startup()
    Call ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
    Dim objCurrentFolder As Outlook.Folder
    Dim objStore As Outlook.Store
    Dim objFileFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
   
    Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
 
    'Process all email accounts in your Outlook
    For Each objStore In Outlook.Application.Session.Stores
        Set objFileFolders = objStore.GetRootFolder.Folders
 
        For Each objFolder In objFileFolders
            Call LoopFolders(objFolder)
        Next
 
        DoEvents
        Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
    Next
End Sub

Sub LoopFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    Set Application.ActiveExplorer.CurrentFolder = objCurFolder
    DoEvents
 
    'Process all subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call LoopFolders(objSubfolder)
       Next
    End If
End Sub

3. Successivamente, chiudi l'editor VBA.
4. Successivamente, uscire correttamente dall'applicazione Outlook.
5. Successivamente, avvia Outlook. A questo punto, la macro verrà eseguita automaticamente.
6. Dopo l'avvio di Outlook, è possibile notare che tutte le cartelle sono state espanse, come mostrato nella figura seguente.

Tieni a bada tutte le macro dannose

Hai mai ricevuto e-mail allegate con file sospetti o incorporate con collegamenti sconosciuti? Di solito, quando si affrontano tali e-mail, è necessario aumentare la vigilanza. Non dovresti mai fidarti prontamente di loro in quanto potrebbero trasportare virus. Una volta scaricati gli allegati o aperti i collegamenti, non solo Outlook ma anche il computer potrebbe essere attaccato. A quel tempo, devi riparare Outlook file. Potrebbe essere piuttosto intricato a meno che tu non abbia un backup di Outlook aggiornato o utilizzi un potente strumento di recupero, come DataNumen Outlook Repair.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui SQL Server corruzione e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com