¿Cómo contar correos electrónicos por categoría en Outlook?

Contar correos electrónicos por categoría en Outlook con la función de Búsqueda Instantánea

Contar correos electrónicos por categoría en Outlook con VBA

Este método te guiará para encontrar todos los correos electrónicos marcados con las categorías de color especificadas mediante la función de Búsqueda Instantánea, y luego obtener fácilmente el número total de todos los resultados de búsqueda en la barra de estado.

1. En la vista de Correo, presiona simultáneamente las teclas Ctrl + E para activar las Herramientas de Búsqueda.

2. Haz clic en Buscar > Categorizado, y luego selecciona la categoría de color específica por la cual contarás los correos electrónicos.

3. Ahora se han encontrado y listado en la lista de correo todos los correos electrónicos marcados con la categoría de color especificada. Y puedes obtener fácilmente el número total de todos los resultados de búsqueda en la barra de estado. Ver captura de pantalla:

Notas:

(1) Para contar correos electrónicos marcados con la categoría Amarilla y la categoría Naranja simultáneamente, por favor escribe el criterio de búsqueda categoría:="Categoría Amarilla" AND "Categoría Naranja" directamente en el cuadro de Búsqueda Instantánea:

(2) Para contar correos electrónicos marcados con la categoría Amarilla o la categoría Naranja simultáneamente, por favor escribe el criterio de búsqueda categoría:="Categoría Amarilla" OR "Categoría Naranja" directamente en el cuadro de Búsqueda Instantánea.

Este método presentará un VBA para contar correos electrónicos por categoría en un rango de fechas personalizado en Outlook. Por favor, sigue los siguientes pasos:

1. En la vista de Correo, selecciona la carpeta de correo de la cual contarás los correos electrónicos.

2. Presiona simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haz clic en Insertar > Módulo, y luego pega el siguiente código VBA en la nueva ventana de Módulo que se abre:

VBA: Contar correos electrónicos por categoría en Outlook

Sub CategoriesEmails()

Dim oFolder As MAPIFolder
Dim oDict As Object
Dim sStartDate As String
Dim sEndDate As String
Dim oItems As Outlook.Items
Dim sStr As String
Dim sMsg As String


On Error Resume Next
Set oFolder = Application.ActiveExplorer.CurrentFolder

Set oDict = CreateObject("Scripting.Dictionary")

sStartDate = InputBox("Type the start date (format MM/DD/YYYY)")
sEndDate = InputBox("Type the end date (format MM/DD/YYYY)")

Set oItems = oFolder.Items.Restrict("[Received] >= '" & sStartDate & "' And [Received] <= '" & sEndDate & "'")
oItems.SetColumns ("Categories")

For Each aitem In oItems
sStr = aitem.Categories
If Not oDict.Exists(sStr) Then
oDict(sStr) = 0
End If
oDict(sStr) = CLng(oDict(sStr)) + 1
Next aitem

sMsg = ""
For Each aKey In oDict.Keys
sMsg = sMsg & aKey & ":   " & oDict(aKey) & vbCrLf
Next
MsgBox sMsg

Set oFolder = Nothing

 End Sub

4. Presiona la tecla F5 o haz clic en el botón Ejecutar para ejecutar este VBA.

5. (1) En el primer cuadro de diálogo de Microsoft Outlook que aparece, por favor ingresa la fecha de inicio del rango de fechas personalizado dentro del cual contarás los correos electrónicos, y haz clic en el botón Aceptar. (2) En el segundo cuadro de diálogo de Microsoft Outlook, por favor ingresa la fecha de finalización, y haz clic en el botón Aceptar . Ver capturas de pantalla:

Y ahora aparece un cuadro de diálogo que muestra el número de correos electrónicos marcados con categorías de colores. Ver captura de pantalla:

Contar el número total de resultados de búsqueda en Outlook

Contar horas/días/semanas dedicadas a una cita o reunión en Outlook

Contar el número de correos electrónicos por asunto en Outlook

Contar el número total de correos electrónicos entrantes por día en Outlook

Contar el número total de correos electrónicos seleccionados en Outlook