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"
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 Sub8. 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:
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins