2 métodos para obter a contagem de contatos do Outlook em cada categoria de cor

Se você quiser descobrir quantos contatos em cada categoria, você pode usar os 2 métodos apresentados neste artigo. Um está usando a pesquisa instantânea e o outro está usando o VBA.

Assim como usar categorias de cores para gerenciar seus e-mails do Outlook, você também pode classificar seus contatos por meio de categorias. Se você categorizou seus contatos por cores e agora deseja obter a contagem total de contatos em cada categoria diferente, pode usar os 2 meios a seguir para alcançá-lo.

Método 1: Use a Pesquisa Instantânea

1. Em primeiro lugar, inicie seu Outlook.
2. Em seguida, abra sua pasta de contatos.
3. Em seguida, clique na caixa de pesquisa para ativar a faixa “Ferramentas de pesquisa”.
4. Em seguida, clique no botão “Categorizado”.
5. Na lista suspensa, você pode selecionar uma ou mais categorias de cores. Aqui, usaremos a “Categoria Roxa” como exemplo.
6. Depois de selecionar a categoria específica, você verá um critério de pesquisa relacionado preenchido na caixa de pesquisa.
7. Agora, na parte inferior esquerda da barra de status, você pode verificar a contagem total de contatos na categoria selecionada, conforme a imagem a seguir:

Dessa forma, você deve contar os contatos em cada categoria, um por um. Será bastante complicado. Portanto, se você deseja obter a contagem total de contatos em cada categoria de cor de uma só vez, pode recorrer ao próximo truque.

Método 2: Use o Outlook VBA

1. No início, pressione os atalhos de teclado “Alt + F11” no Outlook.
2. Então você terá acesso à janela do editor VBA do Outlook.
3. Em seguida, você precisa abrir um novo módulo ou um módulo que não esteja em uso.
4. Posteriormente, copie e cole os seguintes códigos VBA em tal módulo.

Sub CountContactsinEachCategory()
    Dim objDictionary As Object
    Dim objContactsFolder As Outlook.Folder
    Dim objContacts As Outlook.Items
    Dim objContact As Object
    Dim strCategory As String
    Dim strPrompt As String
    Dim nMessage As Integer

    Set objDictionary = CreateObject("Scripting.Dictionary")
    Set objContactsFolder = Outlook.Application.Session.GetDefaultFolder(olFolderContacts)
    'You can count the contacts in selected Contact folder by....
    'Set objContactsFolder = Outlook.Application.ActiveExplorer.CurrentFolder
    Set objContacts = objContactsFolder.Items
 
    For Each objContact In objContacts
        strCategory = objContact.Categories
        objDictionary(strCategory) = CLng(objDictionary(strCategory)) + 1
    Next objContact
 
    For Each Key In objDictionary.Keys
        strPrompt = strPrompt & Key & ": " & objDictionary(Key) & vbCrLf
    Next
 
    nMessage = MsgBox(strPrompt, vbInformation, "Count Contacts by Color Category")
End Sub

5. Depois disso, verifique se o Outlook permite macros.
6. Mais tarde, você pode clicar no ícone “Executar” na barra de ferramentas.
7. Por fim, você receberá uma mensagem mostrando o número de contatos em cada categoria de cor, conforme a imagem abaixo:

Resgatar seus dados do Outlook

Quando você encontra um caso em que pode acessar seu arquivo PST normalmente, é muito provável que o arquivo esteja corrompido. Neste ponto, a fim de recuperar o PST corrompido dados, você não tem escolha a não ser recorrer a uma ferramenta de reparo potente o suficiente, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo conserto de mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com