Como contar o número total de e-mails recebidos por dia no Outlook?

Na verdade, é muito fácil pesquisar todos os e-mails recebidos hoje na pasta «Caixa de Entrada», em todas as pastas de uma conta de e-mail ou em todas as pastas de Todas as Contas no Outlook — e depois obter o número total de resultados da pesquisa. Basta seguir estes passos:

Na vista «Correio», (1) selecione a pasta «Caixa de Entrada» da conta de e-mail cujos e-mails recebidos hoje pretende contar; (2) introduza o critério de pesquisa «received:Today» na caixa «Pesquisa Instantânea» e, em seguida, (3) defina um Escopo de Pesquisa no grupo «Âmbito» do separador «Pesquisa». Veja a imagem:

O número total de resultados da pesquisa — ou seja, a contagem de e-mails recebidos hoje — é agora apresentado no canto inferior esquerdo do Outlook, conforme ilustrado na imagem seguinte.

Um clique para contar o número de e-mails selecionados no Outlook

É fácil obter o número total de todos os itens ou o número de itens não lidos numa pasta do Outlook. Mas como obter rapidamente o número de itens selecionados numa pasta no Outlook? Recomendamos o Contagem de Itens Selecionados do Kutools para Outlook, que mostra instantaneamente a contagem de itens selecionados com apenas um clique!

Este método orienta-o na criação de uma pasta de pesquisa que recolhe automaticamente todos os e-mails Recebidos hoje. Depois, poderá obter o número total desses e-mails ajustando as propriedades da pasta de pesquisa. Siga estes passos:

1. Selecione a conta de e-mail na qual pretende criar uma pasta de pesquisa na Navegação e clique em «Pasta» > «Nova Pasta de Pesquisa». Veja a imagem:

2. Na caixa de diálogo «Nova Pasta de Pesquisa», selecione a opção «Criar uma Pasta de Pesquisa personalizada» e clique no botão «Escolher». Veja a imagem:

3. A caixa de diálogo «Pasta de Pesquisa Personalizada» abre-se agora. Introduza um nome para a nova pasta de pesquisa na caixa «Nome».

4. Clique no botão «Critérios» na caixa de diálogo «Pasta de Pesquisa Personalizada». Na caixa de diálogo «Critérios da Pasta de Pesquisa», (1) clique no separador «Mensagem», (2) selecione «recebido» na lista pendente «Hora», (3) defina «Hoje» na lista pendente seguinte e, por fim, (4) clique em «OK». Veja a imagem:

5. Volte agora à caixa de diálogo «Pasta de Pesquisa Personalizada» e clique no botão «Procurar». Na caixa de diálogo «Selecionar Pasta(s)», (1) selecione apenas «Caixa de Entrada» na lista «Pastas», ative a opção «Pesquisar Subpastas» e clique em «OK». Veja a imagem:

6. Em seguida, clique sucessivamente em «OK» para fechar as caixas de diálogo «Pasta de Pesquisa Personalizada» e «Nova Pasta de Pesquisa».

7. Clique com o botão direito na nova pasta de pesquisa que acabou de criar e selecione «Propriedades» no menu de contexto. Veja a imagem:

8. Na caixa de diálogo seguinte, ative a opção «Mostrar o número total de itens» e clique em «OK». Veja a imagem:

A partir de agora, cópias das mensagens de e-mail recebidas serão guardadas diariamente nesta pasta de pesquisa. Com a chegada de cada novo dia, a pasta remove automaticamente todas as mensagens antigas e começa a armazenar apenas as do dia corrente.

Nota: Este método permite apenas contar o número total de e-mails recebidos hoje na Caixa de Entrada de uma única conta de e-mail.

Além do método anterior, pode utilizar código VBA para contar o total de e-mails recebidos numa determinada data no Outlook. Siga os passos abaixo.

1. Selecione a pasta na qual pretende contar o total de e-mails recebidos por dia e, em seguida, abra o «Microsoft Visual Basic for Applications» ao premir «Alt» + «F11».

2. Em seguida, aceda a «Inserir» > «Módulo» para adicionar um novo módulo e cole nele o código VBA seguinte.

VBA: Contar Total de Emails por dia

Sub Countemailsperday()
    Dim objOutlook As Object, objnSpace As Object, objFolder As MAPIFolder
    Dim EmailCount As Integer
    Dim oDate As String
    
    oDate = InputBox("Type the date for count (format YYYY-m-d")
    Set objOutlook = CreateObject("Outlook.Application")
    Set objnSpace = objOutlook.GetNamespace("MAPI")
        On Error Resume Next
        Set objFolder = Application.ActiveExplorer.CurrentFolder
        If Err.Number <> 0 Then
        Err.Clear
        MsgBox "No such folder."
        Exit Sub
        End If
    EmailCount = objFolder.Items.Count
    MsgBox "Number of emails in the folder: " & EmailCount, , "email count"
    Dim ssitem As MailItem
    Dim dateStr As String
    Dim myItems As Outlook.Items
    Dim dict As Object
    Dim msg As String
    Set dict = CreateObject("Scripting.Dictionary")
    Set myItems = objFolder.Items
    myItems.SetColumns ("ReceivedTime")
    ' Determine date of each message:
    For Each myItem In myItems
        dateStr = GetDate(myItem.ReceivedTime)
        If dateStr = oDate Then
            If Not dict.Exists(dateStr) Then
                dict(dateStr) = 0
            End If
            dict(dateStr) = CLng(dict(dateStr)) + 1
        End If
    Next myItem
    ' Output counts per day:
    msg = ""
    For Each o In dict.Keys
        msg = msg & o & ": " & dict(o) & " items" & vbCrLf
    Next
    MsgBox msg
    Set objFolder = Nothing
    Set objnSpace = Nothing
    Set objOutlook = Nothing
End Sub
Function GetDate(dt As Date) As String
    GetDate = Year(dt) & "-" & Month(dt) & "-" & Day(dt)
End Function

3. Após colar o código VBA, clique no botão «Executar».

4. Introduza a data específica relativamente à qual pretende contar o total de e-mails recebidos na caixa de diálogo que surge e clique em «OK». Veja a imagem:

5. Surge uma caixa de diálogo a indicar o total da Contagem de Emails na pasta selecionada; clique no botão «OK». Na segunda caixa de diálogo que aparece, obtém o total da Contagem de Emails recebidos hoje. Veja as imagens:

Notas:
(1) Este código VBA permite apenas contar o número total de todos os e-mails recebidos na data específica na pasta selecionada.
(2) Este código VBA funciona corretamente no Outlook 2010, 2013 e 2016.

Se tiver o Kutools para Outlook instalado, pode utilizar a sua funcionalidade Estatísticas para contar facilmente o número total de e-mails recebidos por dia num determinado mês. Siga estes passos:

1. Clique em «KUTOOLS PLUS» > «Estatísticas». Veja a imagem:

2. Abre-se agora a caixa de diálogo Estatísticas. Selecione as pastas específicas em que pretende contar e-mails, defina o intervalo de datas correspondente e clique no botão «OK». Veja a imagem:

3. Na segunda caixa de diálogo Estatísticas, aceda ao separador «Estatísticas de Dias do Mês» ou ao separador «Estatísticas de Dias da Semana» para visualizar o total de e‑mails recebidos em cada data. Veja a imagem:
Aliás, também pode obter o total de e‑mails recebidos hoje ou ontem em todas as pastas da Caixa de Entrada de Todas as Contas no separador «Resumo».