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 Sub
8. 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.
Note: 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 o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para 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 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!