¿Cómo contar el número de correos enviados por mes en Outlook?

Author: Xiaoyang Last Modified: 2025-08-06

A veces, es posible que desee saber cuántos correos electrónicos ha enviado por mes. Este tutorial le presentará un código VBA para contar el número de correos enviados por mes en Outlook.

Contar el número de correos enviados por mes en Outlook con código VBA

Por favor, aplique el siguiente código VBA para obtener el número de correos enviados cada mes como se muestra a continuación:

1. Mantenga presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo, y pegue el siguiente código en la Ventana del Módulo.

Código VBA: Contar el número de correos enviados por mes:

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

Nota: En el código, cambie la cuenta de correo “yy@addin99.com” por la suya propia.

3. Todavía en la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Herramientas > Referencias, en el cuadro de diálogo Referencias-Proyecto, marque la opción Biblioteca de objetos de Microsoft Excel 16.0 en el cuadro de lista de Referencias disponibles, vea la captura de pantalla:

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

4. Luego haga clic en Aceptar para cerrar el cuadro de diálogo, y presione la tecla F5 para ejecutar este código. Después, se abrirá un archivo de Excel, que muestra los recuentos de correos enviados de cada mes para la cuenta específica, vea la captura de pantalla:

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

Asistente de Correo AI en Outlook: Respuestas más Inteligentes, Comunicación más Clara (¡magia con un solo clic!) GRATIS

Simplifica tus tareas diarias en Outlook con el Asistente de Correo AI de Kutools para Outlook. Esta poderosa herramienta aprende de tus correos electrónicos anteriores para ofrecerte respuestas inteligentes y precisas, optimizar el contenido de tus correos y ayudarte a redactar y perfeccionar mensajes sin esfuerzo.

Esta función admite:

Respuestas Inteligentes: Obtén respuestas elaboradas a partir de tus conversaciones pasadas, personalizadas, precisas y listas para usar.
Contenido Mejorado: Refina automáticamente el texto de tus correos electrónicos para mayor claridad e impacto.
Redacción sin Esfuerzo: Solo proporciona palabras clave y deja que la IA haga el resto, con múltiples estilos de escritura.
Extensiones Inteligentes: Amplía tus ideas con sugerencias contextualizadas.
Resúmenes: Obtén resúmenes concisos de correos electrónicos largos al instante.
Alcance Global: Traduce tus correos electrónicos a cualquier idioma fácilmente.

Esta función admite:

Respuestas inteligentes de correo electrónico
Contenido optimizado
Borradores basados en palabras clave
Extensión inteligente de contenido
Resumen de correos electrónicos
Traducción multilingüe

¡Lo mejor de todo es que esta función es completamente gratis para siempre! No esperes más, ¡descarga ahora el Asistente de Correo AI y disfruta!