Cuente los 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 lo guiará para encontrar todos los correos electrónicos marcados con las categorías de color especificadas por el Búsqueda instantánea función, y luego obtener fácilmente el número total de todos los resultados de búsqueda en el Barra de estado.

1. En el Correo ver, presionar Ctrl + E teclas simultáneamente para activar el Herramientas de búsqueda.

2. Hacer clic en Buscar > En la Categoríay luego seleccione la categoría de color especificada por la que contará los correos electrónicos.

3. Ahora todos los correos electrónicos marcados con la categoría de color especificada se encuentran y se enumeran en la lista de correo. Y puede 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 los correos electrónicos marcados con Categoría amarilla y Categoría naranja simultáneamente, escriba los criterios de búsqueda categoría: = "Categoría amarilla" Y "Categoría naranja" en el Búsqueda instantánea caja directamente:

(2) Para contar los correos electrónicos marcados con Categoría amarilla or Categoría naranja simultáneamente, escriba los criterios de búsqueda categoría: = "Categoría amarilla" O "Categoría naranja" en el Búsqueda instantánea caja directamente.

Este método introducirá un VBA para contar los correos electrónicos por categoría en un rango de fechas personalizado en Outlook. Haz lo siguiente:

1. En el Correo vista, seleccione la carpeta de correo electrónico en la que contará los correos electrónicos.

2. Prensa otro + F11 teclas simultáneamente para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. Hacer clic en recuadro > Módulo, y luego pegue debajo del código VBA en la nueva ventana del Módulo de apertura:

VBA: cuente los 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. presione el F5 o haga clic en el botón Ejecutar para ejecutar este VBA.

5. (1) En el primer cuadro de diálogo emergente de Microsoft Outlook, escriba la fecha de inicio del rango de fechas personalizado en el que contará los correos electrónicos y haga clic en OK del botón. (2) En el segundo cuadro de diálogo de Microsoft Outlook, escriba la fecha de finalización y haga clic en OK botón. Ver capturas de pantalla:

Y ahora aparece un cuadro de diálogo que muestra la cantidad de correos electrónicos marcados con categorías de color. Ver captura de pantalla:

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

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

Cuente la cantidad de correos electrónicos por asunto en Outlook

Cuente 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