Como contar o número de pastas numa conta de e-mail específica ou em todas as caixas de correio no Outlook?
Este artigo explica como contar o número de pastas numa conta de e-mail específica ou em todas as caixas de correio no Outlook.
«Contar o número de pastas sob uma conta de e-mail específica ou em todas as caixas de correio com código VBA»
Pode contar o número de pastas numa conta de e-mail específica ou em todas as caixas de correio com o seguinte código VBA. Siga estes passos:
1. Prima as teclas «Alt» + "F11" para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela «Microsoft Visual Basic for Applications», clique em «Inserir» > «UserForm». Veja a captura de ecrã:
3. Em seguida, insira dois «Botões de Opção» e dois «Botões de Comando» no "UserForm1" e altere o texto de exibição dos botões conforme ilustrado na seguinte captura de ecrã.
4. Altere o nome do primeiro botão de opção para “opbCurAccount” e defina a sua propriedade «value» como «True». Veja a captura de ecrã:
5. Prossiga alterando o nome do segundo botão de opção para «opbAllAccounts». Em seguida, defina os nomes dos dois botões de comando como «cdbOk» e «cdbCancel», respetivamente.
6. Faça duplo clique numa área vazia do UserForm1 e substitua o código original pelo seguinte código VBA na janela «UserForm1 (Código)».
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. Prima a tecla "F5" para executar o código. Aparecerá então a caixa de diálogo "UserForm1". Para contar o número de pastas na conta atual, selecione a opção «Conta Atual» e clique em «OK». Para contar o número de pastas em todas as caixas de correio, escolha a opção «Todas as Contas» e clique em «OK». Veja a captura de ecrã:
9. Surge, então, uma caixa de diálogo «Kutools para Outlook» indicando quantas pastas existem na conta atual ou em todas as caixas de correio, conforme ilustrado na seguinte captura de ecrã. Clique no botão «OK».
Nota: Todas as pastas ocultas — como a pasta Definições de Ações de Conversação e a pasta Definições de Passos Rápidos — estão incluídas na contagem de pastas.
Assistente de E-mail com IA no Outlook: Respostas mais inteligentes, comunicação mais clara (magia com um só clique!)
Simplifique as suas tarefas diárias no Outlook com o Assistente de E-mail com IA do Kutools para Outlook. Esta ferramenta inteligente aprende com os seus e-mails anteriores para sugerir respostas precisas, otimizar o conteúdo das suas mensagens e ajudá-lo a redigir e aperfeiçoar textos com facilidade.
Esta funcionalidade suporta:
- Respostas Inteligentes: Obtenha respostas elaboradas com base nas suas conversas anteriores — personalizadas, precisas e prontas a usar.
- Conteúdo Aprimorado: Refine automaticamente o texto dos seus e-mails para garantir maior clareza e impacto.
- Redação sem esforço: basta indicar palavras-chave e deixe que a IA trate do resto, com múltiplos estilos de escrita.
- Extensões Inteligentes: potencie as suas ideias com sugestões sensíveis ao contexto.
- Resumo: Obtenha instantaneamente uma visão clara e concisa de e-mails longos.
- Alcance Global: Traduza os seus e-mails para qualquer idioma com facilidade.
Esta funcionalidade suporta:
- Respostas inteligentes por e-mail
- Conteúdo otimizado
- Rascunhos baseados em palavras-chave
- Extensão inteligente de conteúdo
- Resumo de e-mails
- Tradução multilíngue
Não espere—descarregue já o Assistente de E-mail com IA e desfrute!
Artigos relacionados:
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos