Como contar o número de subpastas numa determinada pasta no Outlook?

Imagine que criou algumas pastas sob uma pasta raiz. Agora pretende saber quantas subpastas existem sob essa pasta raiz. Como pode fazê-lo? Basta expandir a pasta raiz e contar manualmente todas as subpastas, uma a uma? Este artigo apresenta-lhe um método simples para alcançar esse objetivo.

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

---

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

O código VBA seguinte permite-lhe contar o número de subpastas existentes numa determinada pasta raiz do Outlook. Siga os passos abaixo.

1. Prima 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. Depois, copie e cole o código VBA seguinte na janela de código.

Código VBA: contar o número de subpastas sob uma determinada pasta 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. Prima a tecla F5 para executar o código.

4. Na caixa de diálogo Selecionar Pasta que se abre, selecione a pasta cujas subpastas pretende contar e, em seguida, clique no botão OK. Veja a imagem:

5. Em seguida, surge uma caixa de diálogo Kutools para Outlook a indicar-lhe quantas subpastas existem na pasta especificada. Veja a imagem:

---

Artigos relacionados:

• Como contar o número de pastas numa conta de e-mail específica ou em todas as caixas de correio no Outlook?
• Como unificar as caixas de entrada de várias contas para visualizar todos os e-mails juntos no Outlook?
• Como exibir uma caixa de diálogo «Procurar pasta» para selecionar uma pasta no Outlook?
• Como localizar uma pasta em falta que foi movida acidentalmente no Outlook?