Como contar o número de pastas em uma conta de email específica ou em todas as caixas de correio no Outlook?

Este artigo trata da contagem do número de pastas em uma conta de email específica ou em todas as caixas de correio no Outlook.

Conte o número de pastas em uma conta de email específica ou em todas as caixas de correio com código VBA

"Conte o número de pastas em uma conta de email específica ou em todas as caixas de correio com código VBA"

Você pode contar o número de pastas em uma conta de email específica ou em todas as caixas de correio com o seguinte código VBA. Por favor, faça o seguinte.

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

2. Na janela "Microsoft Visual Basic for Applications", clique em "Inserir" > "Userform". Veja a captura de tela:

3. Em seguida, insira dois "Botões de Opção" e dois "Botões de Comando" no "UserForm1" e altere o texto exibido dos botões conforme mostrado na captura de tela abaixo.

4. Altere o nome do primeiro botão de opção para “opbCurAccount” e altere a propriedade "value" para "True". Veja a captura de tela:

5. Continue mudando o nome do segundo botão de opção para "opbAllAccounts". E então especifique o nome dos dois botões de comando como "cdbOk” e ”cdbCancel" separadamente.

6. Clique duas vezes em qualquer lugar vazio do UserForm1 e, em seguida, substitua o código original pelo seguinte código VBA na janela Userform1 (Code).

Código VBA: Contar o número de pastas no Outlook

Option Explicit
'Update by Extendoffice 20180504
Public xRet As Boolean
Private Sub cdbCancel_Click()
xRet = False
UserForm1.Hide
End Sub
Private Sub cdbOk_Click()
xRet = True
UserForm1.Hide
End Sub
7. Click Insert > Module. Then copy below VBA code into the Module window.
VBA code: Count number of folders in Outlook
Function GetSubFolderCount(ParentFolder As Folder) As Long
    Dim xSubFolders As Folders
    Dim xCurFolder As Outlook.Folder
    Dim xFoldersCount As Integer
    On Error Resume Next
    Set xSubFolders = ParentFolder.Folders
    If xSubFolders.Count > 0 Then
       Set xCurFolder = xSubFolders.GetFirst
       While TypeName(xCurFolder) = "MAPIFolder"
          xFoldersCount = xFoldersCount + GetSubFolderCount(xCurFolder)
         Set xCurFolder = xSubFolders.GetNext
       Wend
       GetSubFolderCount = xFoldersCount + xSubFolders.Count
    Else
        GetSubFolderCount = 0
    End If
    End Function
    
    Sub CountFoldersInOutlook()
    Dim xNameSpace As NameSpace
    Dim xFolder As Folder
    Dim xAllFoldersCount As Long
    On Error Resume Next
    UserForm1.Show
    If UserForm1.xRet Then
        Set xNameSpace = Outlook.Application.Session
        If UserForm1.opbCurAccount.Value Then
            Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder.Store.GetRootFolder
            xAllFoldersCount = GetSubFolderCount(xFolder)
        ElseIf UserForm1.opbAllAccounts.Value Then
            For Each xFolder In xNameSpace.Folders
                xAllFoldersCount = xAllFoldersCount + GetSubFolderCount(xFolder)
            Next
        End If
    Else
        Exit Sub
    End If
    MsgBox "Total Folders: " & xAllFoldersCount, vbInformation + vbOKOnly, "Kutools for Outlook"
    End Sub

8. Pressione a tecla "F5" para executar o código. Em seguida, uma caixa de diálogo "UserForm1" aparecerá; para contar o número de pastas na conta atual, selecione a opção "Conta Atual" e clique no botão "OK". Para contar o número de pastas em todas as caixas de correio, escolha a opção "Todas as Contas" e depois clique no botão "OK". Veja a captura de tela:

9. Em seguida, uma caixa de diálogo "Kutools para Outlook" aparece informando quantas pastas existem na conta atual ou em todas as caixas de correio, conforme mostrado na captura de tela abaixo. Clique no botão "OK".

Observação: Todas as pastas ocultas, como a pasta Configurações de Ação de Conversa e a pasta Configurações de Etapa Rápida, estão incluídas na contagem de pastas.

Assistente de E-mail AI no Outlook: Respostas mais Inteligentes, Comunicação mais Clara (mágica com um clique!) GRÁTIS

Simplifique suas tarefas diárias no Outlook com o Assistente de E-mail AI do Kutools para Outlook. Esta poderosa ferramenta aprende com seus e-mails anteriores para oferecer respostas inteligentes e precisas, otimizar o conteúdo de seus e-mails e ajudá-lo a criar e refinar mensagens sem esforço.

Este recurso suporta:

• Respostas Inteligentes: Receba respostas elaboradas a partir de suas conversas passadas — personalizadas, precisas e prontas para uso.
• Conteúdo Aprimorado: Refine automaticamente o texto de seus e-mails para maior clareza e impacto.
• Criação Sem Esforço: Basta fornecer palavras-chave e deixar a IA cuidar do resto, com múltiplos estilos de escrita.
• Extensões Inteligentes: Expanda seus pensamentos com sugestões contextualizadas.
• Resumo: Obtenha visões concisas de e-mails longos instantaneamente.
• Alcance Global: Traduza seus e-mails para qualquer idioma com facilidade.

Este recurso suporta:

• Respostas inteligentes de e-mail
• Conteúdo otimizado
• Rascunhos baseados em palavras-chave
• Extensão inteligente de conteúdo
• Resumo de e-mails
• Tradução multilíngue

O melhor de tudo é que este recurso é completamente grátis para sempre! Não espere — baixe agora o Assistente de E-mail AI e aproveite

Artigos relacionados:

• Como exibir uma caixa de diálogo "Procurar Pasta" para escolher uma pasta no Outlook?