Como contar o número de subpastas em uma pasta específica no Outlook?

Author: Siluvia Last Modified: 2025-08-06

Suponha que você tenha criado algumas pastas sob uma pasta raiz. Agora, você deseja saber quantas subpastas existem na pasta raiz. O que você pode fazer? Apenas expandir a pasta raiz e contar manualmente todas as subpastas uma por uma? Este artigo apresentará um método fácil para você realizar isso.

Contar o número de subpastas com código VBA

Contar o número de subpastas com código VBA

O seguinte código VBA pode ajudá-lo a contar o número de subpastas em uma pasta raiz específica no Outlook. Por favor, siga os passos abaixo.

1. Pressione as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código VBA abaixo na janela de Código.

Código VBA: contar o número de subpastas em uma pasta específica no 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. Pressione a tecla F5 para executar o código.

4. Na caixa de diálogo Selecionar Pasta que aparece, selecione uma pasta da qual você deseja contar as subpastas e, em seguida, clique no botão OK. Veja a captura de tela:

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

5. Em seguida, uma caixa de diálogo do Kutools para Outlook será exibida informando quantas subpastas existem na pasta especificada. Veja a captura de tela: