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

AutorXiaoyang Fecha de modificación2024-09-18

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

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

Aplique el siguiente código VBA para obtener el número de correos electrónicos enviados cada mes, tal como se muestra a continuación:

1. Mantenga pulsadas 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: Cuente el número de correos electrónicos 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 electrónico “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, active la opción Microsoft Excel 16,0 Object Library en el cuadro de lista Referencias disponibles. Consulte la captura de pantalla:

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

4. A continuación, haga clic en Aceptar para cerrar el cuadro de diálogo y pulse la tecla F5 para ejecutar este código. A continuación, se abrirá un archivo de Excel que muestra el recuento de correos electrónicos enviados cada mes para la cuenta especificada. Consulte la captura de pantalla:

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

Asistente de correo con IA en Outlook: respuestas más inteligentes y comunicación más clara (¡magia con un solo clic!)

Simplifique sus tareas diarias en Outlook con el Asistente de correo con IA de Kutools para Outlook. Esta potente herramienta aprende de sus correos anteriores para ofrecerle respuestas inteligentes y precisas, optimizar el contenido de sus mensajes y ayudarle a redactarlos y perfeccionarlos sin esfuerzo.

Esta función incluye:

Respuestas inteligentes: obtenga respuestas elaboradas a partir de sus conversaciones anteriores: personalizadas, precisas y listas para usar.
Contenido mejorado: refine automáticamente el texto de sus correos electrónicos para lograr mayor claridad e impacto.
Redacción sin esfuerzo: proporcione solo palabras clave y deje que la IA haga el resto, con múltiples estilos de escritura.
Extensiones inteligentes: potencie sus ideas con sugerencias adaptadas al contexto.
Resumen: obtenga al instante resúmenes concisos de correos electrónicos extensos.
Alcance global: traduzca sus correos electrónicos a cualquier idioma con facilidad.

Esta función incluye:

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

¡No espere más—descargue ahora el Asistente de correo con IA y disfrute!

Las mejores herramientas de productividad para Office

¡Descubra el nuevo Kutools para Outlook con 100+ funciones increíbles!¡Haga clic para descargar ahora!

🤖KUTOOLS AI:Utiliza tecnología avanzada de IA para gestionar correos electrónicos sin esfuerzo, incluyendo responder, resumir, optimizar, ampliar, traducir y redactar correos.

📧Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar el envío de correos electrónicos / CC/BCC automático según reglas al enviar correos / Reenvío automático (regla avanzada) / Añadir saludo automáticamente / Dividir automáticamente los correos con múltiples destinatarios en mensajes individuales...

📨Gestión de correo electrónico: Recupera tus correos electrónicos / Bloquea correos fraudulentos por asunto y otros criterios / Elimina correos electrónicos duplicados / Búsqueda avanzada / Organiza tus carpetas…

📁Archivos adjuntos Pro: Guardar en lote / Desvincular en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto comprimir...

🌟Magia de la interfaz: 😊Más emojis bonitos y modernos / Le avisa cuando llegan correos importantes / Minimiza Outlook en lugar de cerrarlo…

👍Maravillas con un solo clic: Responder a Todos con Adjuntos / Correos electrónicos antiphishing / 🕘 Mostrar zona horaria: hora actual del remitente...

👩🏼‍🤝‍👩🏻Contactos y calendario: Crear contactos en lote a partir de correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

Utilice Kutools en su idioma preferido: compatible con inglés, español, alemán, francés, chino y más de 40 idiomas adicionales.

Desbloquee Kutools para Outlook al instante con un solo clic. ¡No espere más: descárguelo ahora y potencie su eficiencia!

Lista de funciones de Kutools para Outlook Descargar ahora Ir a comprar

🚀 Descarga con un solo clic — Obtenga todos los complementos de Office

Muy recomendado: Kutools for Office (5 en 1)

Un solo clic para descargar cinco instaladoresa la vez —Kutools para Excel, Outlook, Word, PowerPointy Office Tab Pro.¡Haga clic para descargar ahora!

✅Comodidad con un solo clic: Descargue los cinco paquetes de instalación de una sola vez.
🚀Listo para cualquier tarea de Office: Instale los complementos que necesite, justo cuando los necesite.
🧰Incluido: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint

Acerca del Conjunto ⬇ Descargar el Conjunto 💳 Comprar el Conjunto