Come contare il numero di sottocartelle in determinate cartelle in Outlook?

Supponendo di aver creato alcune cartelle in una cartella principale. Ora vuoi sapere quante sottocartelle si trovano nella cartella principale, come puoi fare? Basta espandere la cartella principale e contare manualmente tutte le sottocartelle una per una? Questo articolo introdurrà un metodo semplice per ottenerlo.

Contare il numero di sottocartelle con codice VBA

Contare il numero di sottocartelle con codice VBA

Il seguente codice VBA può aiutarti a contare il numero di sottocartelle in una determinata cartella principale in Outlook. Si prega di fare quanto segue.

1. premi il altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia e incolla sotto il codice VBA nella finestra del codice.

Codice VBA: conta il numero di sottocartelle in determinate cartelle in Outlook

Sub CountSubFldsUnderRootFolder()
Dim xRootFolder As Folder
Dim xFolderCount As Long
Dim xFolder As Object
On Error Resume Next
'Set xRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
Set xRootFolder = Outlook.Application.Session.PickFolder
If TypeName(xRootFolder) = "Nothing" Then Exit Sub
If xRootFolder.Folders.Count < 1 Then
    MsgBox "No subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
    Exit Sub
End If
For Each xFolder In xRootFolder.Folders
    If xFolder.Name <> "Conversation Action Settings" And xFolder.Name <> "Quick Step Settings" Then
        xFolderCount = xFolderCount + 1
        Call ProcessFolders(xFolder, xFolderCount)
    End If
Next
MsgBox xFolderCount & " subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
End Sub

Sub ProcessFolders(SubFolder As MAPIFolder, Num As Long)
Dim xSubFolder As MAPIFolder
On Error Resume Next
Num = Num + SubFolder.Folders.Count
For Each xSubFolder In SubFolder.Folders
    Call ProcessFolders(xSubFolder, Num)
Next
End Sub

3. premi il F5 chiave per eseguire il codice.

4. In apertura Seleziona cartella finestra di dialogo, seleziona una cartella in cui conterai le sue sottocartelle, quindi fai clic su OK pulsante. Vedi screenshot:

5. Quindi a Kutools for Outlook la finestra di dialogo si apre per dirti quante sottocartelle esistono nella cartella specificata. Vedi screenshot:

Articoli correlati:

• Come contare il numero di cartelle sotto l'account di posta elettronica specificato o tutte le cassette postali in Outlook?
• Come unificare tutte le caselle di posta di più account per visualizzare tutte le e-mail insieme in Outlook?
• Come visualizzare una finestra di dialogo "Sfoglia per cartelle" per la scelta di una cartella in Outlook?
• Come trovare una cartella mancante che è stata spostata per errore in Outlook?

---

I migliori strumenti per la produttività in ufficio

Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook

🤖 Assistente di posta AI: E-mail istantanee professionali con la magia dell'intelligenza artificiale: risposte geniali con un solo clic, tono perfetto, padronanza multilingue. Trasforma l'e-mail senza sforzo! ...

???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP)  /  Pianifica l'invio di e-mail  /  CC/BCC automatico in base alle regole durante l'invio di e-mail  /  Inoltro automatico (regole avanzate)   /  Aggiunta automatica di saluto   /  Suddividi automaticamente le email con più destinatari in singoli messaggi ...

📨 gestione e-mail: Richiama facilmente le email  /  Blocca le email truffe per soggetto e altri  /  Elimina email duplicate  /  Ricerca avanzata  /  Consolidare cartelle ...

📁 Allegati Pro: Salvataggio in batch  /  Stacca batch  /  Comprimi in lotti  /  Salvataggio automatico   /  Scollegamento automatico  /  Comprimi automaticamente ...

🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici   /  Aumenta la tua produttività in Outlook con le visualizzazioni a schede  /  Riduci a icona Outlook invece di chiuderlo ...

👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo  /   E-mail anti-phishing  /  🕘Mostra il fuso orario del mittente ...

👩🏼‍🤝‍👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate  /  Dividere un gruppo di contatti in singoli gruppi  /  Rimuovi promemoria compleanno ...

Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.

Scopri di più       Scarica gratis      Acquista