Come contare il numero di sottocartelle in una determinata cartella in Outlook?

Author: Siluvia Last Modified: 2025-08-06

Supponiamo che tu abbia creato alcune cartelle sotto una cartella principale. Ora vuoi sapere quante sottocartelle ci sono sotto la cartella principale, come puoi fare? Espandere semplicemente la cartella principale e contare manualmente tutte le sottocartelle una per una? Questo articolo ti presenterà un metodo semplice per raggiungere questo obiettivo.

Conta il numero di sottocartelle con il codice VBA

Conta il numero di sottocartelle con il codice VBA

Il seguente codice VBA può aiutarti a contare il numero di sottocartelle sotto una determinata cartella principale in Outlook. Procedi come segue.

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

2. Nella finestra Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo. Poi copia e incolla il seguente codice VBA nella finestra del Codice.

Codice VBA: conta il numero di sottocartelle in 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 una cartella di cui vuoi contare le sottocartelle, quindi fai clic sul pulsante OK. Vedi screenshot:

steps on counting number of subfolders under certain folder in Outlook using vba

5. Successivamente, apparirà una finestra di dialogo di Kutools per Outlook che ti informerà su quante sottocartelle esistono nella cartella specificata. Vedi screenshot: