Como contar o número de subpastas em uma pasta específica no Outlook?
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:

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:

Artigos relacionados:
- Como contar o número de pastas em uma conta de email específica ou em todas as caixas de correio no Outlook?
- Como unificar todas as caixas de entrada de várias contas para exibir todos os emails juntos no Outlook?
- Como exibir uma caixa de diálogo “Procurar Pasta” para escolher uma pasta no Outlook?
- Como encontrar uma pasta perdida que foi movida acidentalmente no Outlook?
Melhores Ferramentas de Produtividade para Office
Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!
Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!
📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por Regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com múltiplos destinatários em mensagens individuais...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...
📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...
🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...
👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...
👩🏼🤝👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...

