Como contar o número de emails enviados por mês no Outlook?

Author: Xiaoyang Last Modified: 2025-08-06

Às vezes, você pode querer saber quantos emails enviou por mês. Este tutorial apresentará um código VBA para você contar o número de emails enviados por mês no Outlook.

Conte o número de emails enviados por mês no Outlook com código VBA

Por favor, aplique o seguinte código VBA para obter o número de emails enviados a cada mês, conforme mostrado abaixo:

1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na janela Módulo.

Código VBA: Contar o número de emails enviados por mês:

Dim GDictionary As Object
Sub CountSentMailsByMonth()
'Updateby Extendoffice
Dim xSentFolder As Outlook.Folder
Dim xExcelApp As Excel.Application
Dim xWb As Excel.Workbook
Dim xWs As Excel.Worksheet
Dim xMonths As Variant
Dim xItemsCount As Variant
Dim xLastRow As Integer
Dim I As Integer
Dim xAccount As Account
On Error Resume Next
Set GDictionary = CreateObject("Scripting.Dictionary")
For Each xAccount In Application.Session.Accounts
  If VBA.LCase$(xAccount.SmtpAddress) = VBA.LCase$("yy@addin99.com") Then  'Specify the Email Account
    Set xSentFolder = xAccount.DeliveryStore.GetDefaultFolder(olFolderSentMail)
    If xSentFolder.DefaultItemType = olMailItem Then
      Call ProcessFolders(xSentFolder)
    End If
  End If
Next
Set xSentFolder = Nothing
Set xExcelApp = CreateObject("Excel.Application")
xExcelApp.Visible = True
Set xWb = xExcelApp.Workbooks.Add
Set xWs = xWb.Sheets(1)
With xWs
  .Cells(1, 1) = "Month"
  .Cells(1, 2) = "Count"
  .Cells(1, 1).Font.Bold = True
  .Cells(1, 2).Font.Bold = True
  .Cells(1, 1).HorizontalAlignment = xlCenter
  .Cells(1, 2).VerticalAlignment = xlCenter
End With
xMonths = GDictionary.Keys
xItemsCount = GDictionary.Items
For I = LBound(xMonths) To UBound(xMonths)
  xLastRow = xWs.Range("A" & xWs.Rows.Count).End(xlUp).Row + 1
  With xWs
    .Cells(xLastRow, 1) = xMonths(I)
    .Cells(xLastRow, 2) = xItemsCount(I)
  End With
Next
xWs.Columns("A:B").AutoFit
xExcelApp.Visible = True
Set xExcelApp = Nothing
Set xWb = Nothing
Set xWs = Nothing
End Sub

Sub ProcessFolders(ByVal Fld As Outlook.Folder)
Dim I As Long
Dim xMail As Outlook.MailItem
Dim xMonth As String
Dim xSubFolder As Folder
On Error Resume Next
For I = Fld.Items.Count To 1 Step -1
  If Fld.Items(I).Class = olMail Then
    Set xMail = Fld.Items(I)
    xMonth = Year(xMail.SentOn) & "/" & Month(xMail.SentOn)
    If GDictionary.Exists(xMonth) Then
      GDictionary(xMonth) = GDictionary(xMonth) + 1
    Else
      GDictionary.Add xMonth, 1
    End If
  End If
Next
If Fld.Folders.Count > 0 Then
  For Each xSubFolder In Fld.Folders
    Call ProcessFolders(xSubFolder)
  Next
End If
End Sub

Observação: No código, altere a conta de email “yy@addin99.com” para a sua própria.

3. Ainda na janela do Microsoft Visual Basic for Applications, clique em Ferramentas > Referências. Na caixa de diálogo Referências-Projeto, marque a opção Microsoft Excel 16.0 Object Library na lista de referências disponíveis, veja a captura de tela:

doc-count-sent-emails-per-month-1

4. Em seguida, clique em OK para fechar a caixa de diálogo e pressione a tecla F5 para executar este código. Depois disso, um arquivo do Excel será aberto, exibindo as contagens de emails enviados de cada mês para a conta específica, veja a captura de tela:

doc-count-sent-emails-per-month-2

Assistente de E-mail AI no Outlook: Respostas mais Inteligentes, Comunicação mais Clara (mágica com um clique!) GRÁTIS

Simplifique suas tarefas diárias no Outlook com o Assistente de E-mail AI do Kutools para Outlook. Esta poderosa ferramenta aprende com seus e-mails anteriores para oferecer respostas inteligentes e precisas, otimizar o conteúdo de seus e-mails e ajudá-lo a criar e refinar mensagens sem esforço.

Este recurso suporta:

Respostas Inteligentes: Receba respostas elaboradas a partir de suas conversas passadas — personalizadas, precisas e prontas para uso.
Conteúdo Aprimorado: Refine automaticamente o texto de seus e-mails para maior clareza e impacto.
Criação Sem Esforço: Basta fornecer palavras-chave e deixar a IA cuidar do resto, com múltiplos estilos de escrita.
Extensões Inteligentes: Expanda seus pensamentos com sugestões contextualizadas.
Resumo: Obtenha visões concisas de e-mails longos instantaneamente.
Alcance Global: Traduza seus e-mails para qualquer idioma com facilidade.

Este recurso suporta: