Cuente el número total de archivos adjuntos en correos electrónicos seleccionados con VBA

Exporte y cuente archivos adjuntos en correos electrónicos seleccionados con Kutools para Outlook

Cuente el número total de archivos adjuntos en varios correos electrónicos guardando estos archivos adjuntos primero en Outlook

Este método introducirá un VBA para contar el número total de archivos adjuntos en correos electrónicos seleccionados en Outlook. Haz lo siguiente:

1. Seleccione los correos electrónicos cuyos archivos adjuntos contará y presione el botón otro + F11 simultáneamente para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

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

VBA: cuente la cantidad de archivos adjuntos en correos electrónicos seleccionados

Sub CountAttachmentsMulti()
Dim oItem As Object
Dim iAttachments As Integer

For Each oItem In ActiveExplorer.Selection
iAttachments = oItem.Attachments.Count + iAttachments
Next
MsgBox "Selected " & ActiveExplorer.Selection.Count & " messages with " & iAttachments & " attachements"

End Sub

3. presione el F5 o haga clic en el Ejecutar botón para ejecutar este VBA.

Y ahora aparece un cuadro de diálogo que muestra cuántos archivos adjuntos hay en los correos electrónicos seleccionados. Ver captura de pantalla:

Si tiene Kutools para Outlook instalado, puede aplicar fácilmente el Separar todo (Archivos adjuntos) para exportar todos los archivos adjuntos de varios correos electrónicos seleccionados y luego contar los archivos adjuntos exportados fácilmente. Haz lo siguiente:

1. Seleccione los correos electrónicos cuyos archivos adjuntos exportará y contará, y haga clic en Kutools > Otros > Separar todo. Ver captura de pantalla:

2. Aparecerá un cuadro de diálogo y le pedirá su reconfirmación sobre la separación de archivos adjuntos. Haga clic en el Sí botón para seguir adelante.

3. En el cuadro de diálogo de apertura Buscar carpeta, especifique una carpeta en la que guardará los archivos adjuntos exportados y haga clic en OK del botón.

Y ahora todos los archivos adjuntos en los correos electrónicos seleccionados se exportan y guardan en la carpeta de destino.

4. Abra la carpeta de destino y seleccione todos los archivos adjuntos que acaba de exportar y obtendrá el número de archivos adjuntos exportados en el Barra de estado de abrir carpeta. Ver captura de pantalla:

Note: Si un correo electrónico contiene más de un archivo adjunto, estos archivos adjuntos se guardarán en una carpeta y se nombrarán con el asunto de este correo electrónico.

Cuente el número de destinatarios en los campos Para, CC y CCO en Outlook

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

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