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

Cuente correos electrónicos por categoría en Outlook con la función Búsqueda instantánea

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

Este método le guiará para encontrar todos los correos electrónicos marcados con la categoría de color especificada mediante la función Búsqueda instantánea y, a continuación, obtener fácilmente el número total de resultados en la Barra de estado.

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

2. Haga clic en Búsqueda > Categorizadas y seleccione la categoría de color específica cuyos correos electrónicos desea contar.

3. Ahora todos los correos electrónicos marcados con la categoría de color especificada ya se han encontrado y aparecen en la Lista de correos electrónicos. Además, puede ver fácilmente el número total de resultados de la búsqueda en la Barra de estado. Vea la captura de pantalla:

Notas:

(1) Para contar correos electrónicos marcados con la categoría Amarilla yla categoría Naranja simultáneamente, escriba directamente en el cuadro de Búsqueda instantánea el criterio de búsqueda: category:=«Amarilla» AND "Naranja":Búsqueda instantánea:

(2) Para contar correos electrónicos marcados con la categoría Amarilla ola categoría Naranja simultáneamente, escriba directamente en el cuadro de Búsqueda instantánea el criterio de búsqueda: category:=«Amarilla» OR "Naranja".Búsqueda instantánea

Este método presenta un código VBA para contar correos electrónicos por categoría en un rango de fechas personalizado en Outlook. Siga estos pasos:

1. En la vista Correo, seleccione la carpeta de correo cuyos mensajes desea contar.

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

3. Haga clic en Insertar > Módulo y pegue a continuación el código VBA en la nueva ventana del módulo que se abre:

VBA: Cuente 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. Pulse la tecla F5 o haga clic en el botón Ejecutar para ejecutar este código VBA.

5. (1) En el primer cuadro de diálogo de Microsoft Outlook que aparece, introduzca la fecha de inicio del rango de fechas personalizado en el que desea contar correos electrónicos y haga clic en el botón Aceptar. (2) En el segundo cuadro de diálogo de Microsoft Outlook, introduzca la fecha de fin y haga clic en el botón Aceptar. Vea las capturas de pantalla:

Ahora aparece un cuadro de diálogo que muestra el recuento de correos electrónicos marcados con una categoría de color. Vea la captura de pantalla:

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

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

Cuente los Recuento de correos electrónicos por asunto en Outlook

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

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