Como contar o número de pastas sob a conta de e-mail especificada ou todas as caixas de correio no Outlook?
Este artigo está falando sobre como contar o número de pastas na conta de e-mail especificada ou todas as caixas de correio no Outlook.
Contar o número de pastas na conta de e-mail especificada ou todas as caixas de correio com código VBA
Você pode contar o número de pastas na conta de e-mail especificada ou todas as caixas de correio com o código VBA abaixo. Faça o seguinte.
1. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Formulário de usuário. Veja a imagem:
3. Em seguida, insira dois Botões de opção e dois Botões de Comando para dentro UserForm1e altere o texto de exibição dos botões conforme a captura de tela mostrada abaixo.
4. Altere o nome do primeiro botão de opção para “opbCurConta”E mude o valor propriedade para Verdadeiro. Veja a imagem:
5. Continue alterando o nome do segundo botão de opção para “opbTodas as contas”. E, em seguida, especifique o nome dos dois botões de comando para “cdbOk"E"cdbCancelar”Separadamente.
6. Clique duas vezes em qualquer local em branco de UserForm1 e, em seguida, substitua o código original pelo código VBA abaixo 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. aperte o F5 chave para executar o código. Então uma UserForm1 caixa de diálogo aparece, para contar o número de pastas na conta corrente, selecione o Conta Corrente opção e clique no OK botão. Para contar o número de pastas em todas as caixas de correio, escolha o Todas as contas opção e, em seguida, clique no botão OK botão. Veja a imagem:
9. Então um Kutools for Outlook A caixa de diálogo aparece para informar quantas pastas existem na conta atual ou todas as caixas de correio, conforme a captura de tela abaixo. Por favor clique no OK botão.
Anote os: Todas as pastas ocultas, como a pasta Conversation Action Settings e a pasta Quick Step Settings, estão incluídas na contagem de pastas.
Artigos relacionados:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com Kutools for Excele experimente eficiência como nunca antes. Kutools for Excel Oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab Traz a interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
