Come si fa a contare il numero di sottocartelle presenti all’interno di una specifica cartella in Outlook?

Supponiamo che tu abbia creato alcune cartelle all’interno di una cartella principale. Ora desideri sapere quante sottocartelle contiene questa cartella principale: come puoi fare? Espandi semplicemente la cartella principale e conti manualmente tutte le sottocartelle una per una? Questo articolo ti illustrerà un metodo semplice per ottenere questo risultato.

Contare il numero di sottocartelle con codice VBA

---

Contare il numero di sottocartelle con codice VBA

Il seguente codice VBA ti permette di contare il numero di sottocartelle presenti all’interno di una specifica cartella principale in Outlook. Segui questi passaggi.

1. Premi i tasti Alt+F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Nella finestra di Microsoft Visual Basic for Applications, fai clic su Inserisci > Modulo. Quindi, copia e incolla il codice VBA riportato di seguito nella finestra del codice.

Codice VBA: conta il numero di sottocartelle all’interno di una determinata cartella 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 tasto F5 per eseguire il codice.

4. Nella finestra di dialogo Seleziona cartella che si apre, seleziona la cartella di cui vuoi contare le sottocartelle, quindi fai clic sul pulsante OK. Vedi screenshot:

5. A questo punto compare una finestra di dialogo Kutools per Outlook che ti indica quante sottocartelle sono presenti nella cartella specificata. Vedi screenshot:

---

Articoli correlati:

• Come contare il numero di cartelle presenti in un account email specifico o in tutte le cassette postali di Outlook?
• Come unificare le caselle di posta in arrivo di più account per visualizzare tutte le email insieme in Outlook?
• Come visualizzare la finestra di dialogo «Sfoglia per cercare una cartella» in Outlook per selezionare una cartella?
• Come trovare una cartella spostata accidentalmente e risultata mancante in Outlook?