3 métodos rápidos para contar todos os itens sinalizados em seu Outlook

O Outlook permite sinalizar itens para acompanhamento, como sinalizar e-mails, contatos e assim por diante. Nesse cenário, às vezes você pode querer contar os itens sinalizados. Aqui vamos compartilhar 3 abordagens com você.

Talvez você tenha sinalizado um grande número de itens para acompanhamento em seu Outlook. Por exemplo, você pode sinalizar um contato que planeja ligar para ele mais tarde. Diante de tantos itens sinalizados, você pode esperar fazer uma contagem deles. A seguir, apresentaremos 3 meios.

Método 1: Contar por meio da Pasta de Pesquisa

Se você simplesmente deseja contar os e-mails sinalizados, pode usar a pasta de pesquisa. Aqui estão as etapas detalhadas.

1. Para começar, no painel de navegação de e-mail, clique com o botão direito do mouse em “Pastas de pesquisa”.
2. Em seguida, no menu de contexto, selecione “Nova pasta de pesquisa”.
3. Na caixa de diálogo pop-up, selecione “Mail sinalizado para acompanhamento” e clique em “OK”.
4. Por fim, você obterá um número total de e-mails sinalizados na pasta de pesquisa, como na captura de tela a seguir.

Método 2: Contar na Lista de Tarefas

Se você sinalizou não apenas e-mails, mas também contatos, grupos de contatos e assim por diante, talvez queira obter uma contagem total de todos esses itens sinalizados. Nesta situação, você pode usar a seguinte maneira.

1. Em primeiro lugar, mude para o painel de navegação Tarefas por “Ctrl + 4”.
2. Em seguida, acesse a “To-Do List”, onde você verá todos os itens sinalizados, conforme imagem abaixo:
3. Em seguida, selecione todos esses itens e pressione o botão da tecla “Enter”, tentando abri-los em lotes.
4. Posteriormente, você receberá um aviso sobre a abertura de muitos itens, como na figura a seguir. No aviso, há uma contagem total dos itens sinalizados.

Método 3: Contar com Outlook VBA

Talvez você não apenas queira obter uma contagem total de todos os itens sinalizados, mas também deseja obter as contagens de tipos separados de itens sinalizados. Aqui está uma solução a este respeito.

1. Para começar, acesse o editor VBA do Outlook com base na postagem “Como executar o código VBA no seu Outlook".
2. Em seguida, copie o código VBA abaixo em um módulo ou projeto.

Dim lSeparateCount, lMailCount, lContactCount, lTaskCount As Long

Sub CountFlaggedItems()
    Dim objStore As Outlook.Store
    Dim lTotalCount As Long
    Dim strMsg As String

    lTotalCount = 0
    lMailCount = 0
    lContactCount = 0
    lTaskCount = 0
 
    For Each objStore In Application.Session.Stores
        For Each objFolder In objStore.GetRootFolder.Folders
            Call ProcessFolders(objFolder, lTotalCount)
        Next
    Next
 
    strMsg = lTotalCount & " items have been flagged, as follows: " & vbCr & vbCr & "Emails: " & lMailCount & vbCr & "Contacts: " & lContactCount & vbCr & "Tasks: " & lTaskCount
    MsgBox strMsg, vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder, ByRef lCount As Long)
    Dim objSubfolder As Outlook.Folder
 
    Select Case objCurrentFolder.DefaultItemType
       Case olMailItem
            Call Count(objCurrentFolder, lCount)
            lMailCount = lMailCount + lSeparateCount
       Case olContactItem
            Call Count(objCurrentFolder, lCount)
            lContactCount = lContactCount + lSeparateCount
       Case olTaskItem
            Call Count(objCurrentFolder, lCount)
            lTaskCount = lTaskCount + lSeparateCount
            lCount = lCount + objCurrentFolder.Items.Count
    End Select
 
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder, lCount)
       Next
    End If
End Sub

Sub Count(objCurfolder As Outlook.Folder, lCurCount As Long)
    Dim objItem As Object
 
    lSeparateCount = 0
    For Each objItem In objCurfolder.Items
        Select Case objItem.Class
           Case olMail, olPost, olContact, olDistList, olSharing
                If objItem.IsMarkedAsTask = True Then
                   lSeparateCount = lSeparateCount + 1
                   lCurCount = lCurCount + 1
                End If
           Case olTask
                lSeparateCount = lSeparateCount + 1
        End Select
    Next
End Sub

3. Por fim, clique na sub-rotina “CountFlaggedItems” e pressione o botão “F5”.
4. Quando a macro for concluída, você receberá uma mensagem solicitando a contagem total de todos os itens sinalizados, como na figura abaixo.

Eliminar problemas irritantes do Outlook

No Outlook, os problemas do Outlook podem ocorrer de vez em quando. Assim, é melhor você se apossar de um excelente e confiável Correção do Outlook utilitário, como DataNumen Outlook Repair. Ele pode escanear seu arquivo do Outlook de forma inteligente e reparar os erros do arquivo em minutos.

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