¿Cómo contar el número total de correos electrónicos entrantes por día en Outlook?

En realidad, es bastante sencillo buscar todos los correos electrónicos entrantes de hoy en la carpeta «Bandeja de entrada», en todas las carpetas de una cuenta de correo o en todas las carpetas de Todas las cuentas en Outlook, y luego contar el número total de resultados obtenidos. Siga estos pasos:

En la vista «Correo», (1) seleccione la carpeta «Bandeja de entrada» de la cuenta cuyos mensajes entrantes desea contar hoy; (2) escriba el criterio de búsqueda «received:Today» en el cuadro «Búsqueda instantánea» y, a continuación, (3) especifique un ámbito de búsqueda en el grupo «Ámbito» de la pestaña «Buscar». Consulte la captura de pantalla:

Ahora, el número total de resultados de la búsqueda —es decir, el recuento de correos electrónicos entrantes hoy— aparece en la esquina inferior izquierda de Outlook, tal como se muestra en la siguiente captura.

Un solo clic para contar el número de correos electrónicos seleccionados en Outlook

Es fácil obtener el número total de todos los elementos o la cantidad de elementos no leídos en una carpeta de Outlook. Pero, ¿cómo puede obtener rápidamente la cantidad de elementos seleccionados en una carpeta de Outlook? Le recomendamos Conteo de elementos seleccionados de Kutools para Outlook, que muestra al instante el número de elementos seleccionados con solo un clic.

Este método le guiará para crear una carpeta de búsqueda que recopile automáticamente todos los correos recibidos hoy. A continuación, podrá obtener el número total de estos mensajes modificando las propiedades de la carpeta de búsqueda. Siga estos pasos:

1. Seleccione la cuenta de correo en la que desea crear una carpeta de búsqueda en la navegación y haga clic en «Carpeta» > «Nueva carpeta de búsqueda». Consulte la captura de pantalla:

2. En el cuadro de diálogo «Nueva carpeta de búsqueda», seleccione la opción «Crear una carpeta de búsqueda personalizada» y haga clic en el botón «Elegir». Consulte la captura de pantalla:

3. Ahora aparece el cuadro de diálogo «Carpeta de búsqueda personalizada». Asigne un nombre a la nueva carpeta de búsqueda en el campo «Nombre».

4. Haga clic en el botón «Criterios» en «Carpeta de búsqueda personalizada». En el cuadro de diálogo «Criterios de carpeta de búsqueda», (1) haga clic en la pestaña «Mensaje», (2) seleccione «recibido» en la lista desplegable «Hora», (3) especifique «Hoy» en la lista desplegable siguiente y, a continuación, (4) haga clic en el botón «Aceptar». Consulte la captura de pantalla:

5. Vuelva ahora al cuadro de diálogo «Carpeta de búsqueda personalizada» y haga clic en el botón «Examinar». A continuación, en el cuadro de diálogo «Seleccionar carpeta(s)», (1) marque únicamente «Bandeja de entrada» en la lista «Carpetas», active la opción «Buscar en subcarpetas» y haga clic en «Aceptar». Consulte la captura de pantalla:

6. A continuación, haga clic sucesivamente en los botones «Aceptar» para cerrar los cuadros de diálogo «Carpeta de búsqueda personalizada» y «Nueva carpeta de búsqueda».

7. Haga clic con el botón derecho en la nueva carpeta de búsqueda que acaba de crear y seleccione «Propiedades» en el menú contextual. Consulte la captura de pantalla:

8. En el cuadro de diálogo siguiente, active la opción «Mostrar el número total de elementos» y, a continuación, haga clic en el botón «Aceptar». Consulte la captura de pantalla:

A partir de ahora, cada día se guardarán copias de los mensajes de correo electrónico entrantes en esta carpeta de búsqueda. Al comenzar un nuevo día, la carpeta eliminará automáticamente todos los mensajes anteriores y empezará a almacenar únicamente los del día actual.

Nota: Este método solo permite contar el número total de correos electrónicos recibidos hoy en la Bandeja de entrada de una cuenta de correo.

Además del método anterior, puede usar código VBA para contar el número total de correos electrónicos recibidos en una fecha específica en Outlook. Siga estos pasos:

1. Seleccione la carpeta en la que desea contar el número total de correos electrónicos entrantes por día y, a continuación, abra «Microsoft Visual Basic para Aplicaciones» pulsando Alt + F11.

2. A continuación, haga clic en «Insertar» > «Módulo» para agregar un nuevo módulo y pegue el siguiente código VBA en él.

VBA: Cuenta Correos electrónicos totales por día

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. Tras pegar el código VBA, haga clic en el botón «Ejecutar».

4. A continuación, introduzca en el cuadro de diálogo emergente la fecha específica en la que desea contar el total de correos electrónicos entrantes y haga clic en «Aceptar». Consulte la captura de pantalla:

5. Un cuadro de diálogo muestra el recuento total de correos electrónicos en la carpeta seleccionada; haga clic en el botón «Aceptar». A continuación, en el segundo cuadro de diálogo emergente, obtendrá el recuento total de correos electrónicos recibidos hoy. Consulte las capturas de pantalla:

Notas:
(1) Este código VBA solo puede contar el número total de correos recibidos en la fecha especificada dentro de la carpeta seleccionada.
(2) Este código VBA funciona correctamente en Outlook 2010, 2013 y 2016.

Si tiene instalado Kutools para Outlook, puede utilizar su función Estadísticas para contar fácilmente el número total de correos electrónicos recibidos por día en un mes. Siga estos pasos:

1. Haga clic en «KUTOOLS PLUS» > «Estadísticas». Vea la captura de pantalla:

2. Ahora aparece el cuadro de diálogo Estadísticas. Por favor, selecciona las carpetas en las que deseas contar correos, especifica el rango de fechas correspondiente y haz clic en el botón «Aceptar». Consulta la captura de pantalla:

3. En el segundo cuadro de diálogo de Estadísticas, vaya a la pestaña «Estadísticas de días del mes» o a la pestaña «Estadísticas de días de la semana» para ver el recuento total de correos electrónicos recibidos en cada fecha. Consulte la captura de pantalla:
Además, también puede consultar el recuento total de correos electrónicos recibidos hoy o ayer en todas las carpetas de la Bandeja de entrada de todas las cuentas desde la pestaña «Resumen».