Come ottenere rapidamente il conteggio totale delle sottocartelle in una cartella specifica in Outlook

Forse hai creato un gran numero di sottocartelle in una determinata cartella, come Posta in arrivo, in Outlook. In questo caso, se vuoi contare le sottocartelle, devi essere riluttante a contare manualmente. Qui ti condivideremo un modo molto più intelligente.

Per classificare e archiviare meglio gli elementi in Outlook, molti utenti sono abituati a creare varie cartelle e sottocartelle. Tuttavia, in seguito, potrebbero pensare che sia un po' difficile gestire troppe cartelle. In questo caso, potrebbero voler contare quante sottocartelle ci sono in una cartella specifica. Senza dubbio, è stupido e noioso contare manualmente. Pertanto, nel seguito, mostreremo un mezzo molto più intelligente.

Ottieni il conteggio totale delle sottocartelle in una cartella specifica

1. Innanzitutto, avvia il programma Outlook.
2. Quindi, nella finestra di Outlook, puoi premere i pulsanti "Alt + F11" per accedere all'editor VBA.
3. Successivamente, nella successiva finestra popup, è necessario aprire un modulo che non viene utilizzato.
4. Successivamente, copia e incolla il seguente codice VBA in questo modulo.

Sub CountSubfoldersUnderRootFolder()
    Dim objRootFolder As Folder
    Dim lFolderCount As Long
    Dim objFolder As Object
 
    'Get the current folder
    Set objRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
    'If you want to select, use the following line instead
    'Set objRootFolder = Outlook.Application.Session.PickFolder
 
    If objRootFolder.Folders.count > 0 Then
       For Each objFolder In objRootFolder.Folders
           'Exclude the hidden folders under Inbox
           If objFolder.Name <> "Conversation Action Settings" And objFolder.Name <> "Quick Step Settings" Then
              lFolderCount = lFolderCount + 1
 
              'Process subfolders recursively
              Call ProcessFolders(objFolder, lFolderCount)
           End If
       Next
       MsgBox lFolderCount & " subfolders under " & Chr(34) & objRootFolder.Name & Chr(34) & ".", vbInformation
    Else
       MsgBox "No subfolders under " & Chr(34) & objRootFolder.Name & Chr(34) & ".", vbInformation
    End If
End Sub
 
Sub ProcessFolders(objCurrentFolder As Object, lCount As Long)
    Dim objSubfolder As Object
 
    lCount = lCount + objCurrentFolder.Folders.count
 
    For Each objSubfolder In objCurrentFolder.Folders
        Call ProcessFolders(objSubfolder, lCount)
    Next
End Sub

5. Successivamente, puoi uscire dalla finestra corrente.
6. Successivamente, vai su "File" > "Opzioni" > "Barra di accesso rapido". Lì puoi aggiungere la nuova macro alla barra di accesso rapido.
7. Infine, puoi provare questa macro.

• Prima di tutto, seleziona una cartella di cui desideri contare le sottocartelle.
• Quindi, fai clic sul pulsante macro nella barra di accesso rapido.
• Immediatamente, Outlook eseguirà questa macro.
• Al termine della macro, riceverai un messaggio, come l'immagine seguente:

Trucchi Affrontare la corruzione di Outlook

Outlook è estremamente vulnerabile a numerosi fattori, inclusi virus, problemi software o hardware, interruzioni di corrente e così via. Nessuno può garantire di essere in grado di mantenere il proprio file di Outlook lontano dalla corruzione. Quindi, è essenziale padroneggiare alcuni trucchi per far fronte ai danni. Innanzitutto, devi eseguire un backup PST regolare. Inoltre, dovresti sapere come utilizzare Scansione, lo strumento di riparazione integrato. Ultimo ma non meno importante, dovresti preparare uno strumento esterno più robusto, come ad esempio 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 correzione del mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com