¿Cómo ordenar y agrupar mensajes mediante el filtro por dominio del remitente en Outlook?

Normalmente, en Microsoft Outlook podemos organizar fácilmente todos los mensajes de correo electrónico por remitente, categorías, asunto, tamaño, etc. Sin embargo, ordenar o agrupar los mensajes por dominio del remitente parece imposible, ya que no existe un campo específico para «dominio del remitente» en los correos. A continuación, le presentamos un código VBA que le permitirá añadir una columna «Dominio» a sus mensajes de correo electrónico y, posteriormente, ordenarlos y agruparlos con facilidad según el dominio del remitente en Outlook.

Para ordenar y agrupar mensajes de correo electrónico por Filtrar por dominio del remitente en Microsoft Outlook 2013 y 2010, siga estos pasos:

Paso 1: abra la carpeta de correo en la que desea ordenar todos los mensajes filtrando por dominio del remitente.

Paso 2: desactive el panel de lectura haciendo clic en Panel de lectura > Desactivado en la pestaña Vista.

Paso 2: haga clic en Agregar varias columnas en la pestaña Vista.

Paso 3: en el cuadro de diálogo Mostrar columnas, haz clic en el botón Nueva columna.

Paso 4: en el cuadro de diálogo Nueva columna, escriba Dominio en el cuadro Nombre y mantenga seleccionado Texto tanto en el cuadro Tipo como en el cuadro Formato; por último, haga clic en el botón Aceptar.

Paso 5: ahora volverá al cuadro de diálogo Mostrar columnas; seleccione Dominio en el cuadro «Mostrar estas columnas en este orden», colóquelo debajo del elemento De y haga clic en el botón Aceptar.

Paso 6: Ahora volverá a la carpeta de correo abierta; seleccione todos los mensajes de correo electrónico pulsando simultáneamente las teclas Ctrl+A.

Paso 7: pulse simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones; a continuación, haga clic en Insertar > Módulo y, después, pegue el siguiente código VBA en el módulo.

VBA: ordenar y agrupar por Filtrar por dominio del remitente

Sub ListSelectionDomain()
Dim aObj As Object
Dim oProp As Outlook.UserProperty
Dim sDomain
On Error Resume Next
For Each aObj In Application.ActiveExplorer.Selection
Set oMail = aObj
sDomain = Right(oMail.SenderEmailAddress, Len(oMail.SenderEmailAddress) - InStr(1, oMail.SenderEmailAddress, "@"))
Set oProp = oMail.UserProperties.Add("Domain", olText, True)
oProp.Value = sDomain
oMail.Save
Err.Clear
Next
End Sub

Paso 8: ejecute este código VBA pulsando la tecla F5 o el botón Ejecutar en la barra de herramientas.

Paso 9: ahora se extrae el dominio de cada remitente y se rellena en la columna «Dominio».

A.Para ordenar los mensajes de correo electrónico por Filtrar por dominio del remitente, simplemente haga clic en la cabecera de la columna Dominiosituada en la parte superior de todos los mensajes de correo electrónico;

B. Para agrupar los mensajes de correo electrónico por el dominio del remitente, haz clic con el botón derecho en la cabecera de la columna Dominio y selecciona Agrupar por este campo en el menú desplegable. Consulta la siguiente captura de pantalla:

Notas:

(1) Este código VBA funciona correctamente en Outlook 2013 y 2010, pero no es compatible con Outlook 2007.
(2) Puede guardar fácilmente la vista personalizada con ¿Cómo guardar y copiar la configuración de vistas en otras carpetas de Outlook?

Artículo relacionado

¿Cómo ver el dominio de los remitentes en la lista de correos electrónicos de Outlook?

---

Las mejores herramientas de productividad para Office

¡Descubra el nuevo Kutools para Outlook con 100+ funciones increíbles!¡Haga clic para descargar ahora!

🤖KUTOOLS AI:Utiliza tecnología avanzada de IA para gestionar correos electrónicos sin esfuerzo, incluyendo responder, resumir, optimizar, ampliar, traducir y redactar correos.

📧Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar el envío de correos electrónicos / CC/BCC automático según reglas al enviar correos / Reenvío automático (regla avanzada) / Añadir saludo automáticamente / Dividir automáticamente los correos con múltiples destinatarios en mensajes individuales...

📨Gestión de correo electrónico: Recupera tus correos electrónicos / Bloquea correos fraudulentos por asunto y otros criterios / Elimina correos electrónicos duplicados / Búsqueda avanzada / Organiza tus carpetas…

📁Archivos adjuntos Pro: Guardar en lote / Desvincular en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto comprimir...

🌟Magia de la interfaz: 😊Más emojis bonitos y modernos / Le avisa cuando llegan correos importantes / Minimiza Outlook en lugar de cerrarlo…

👍Maravillas con un solo clic: Responder a Todos con Adjuntos / Correos electrónicos antiphishing / 🕘 Mostrar zona horaria: hora actual del remitente...

👩🏼‍🤝‍👩🏻Contactos y calendario: Crear contactos en lote a partir de correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

Utilice Kutools en su idioma preferido: compatible con inglés, español, alemán, francés, chino y más de 40 idiomas adicionales.

Desbloquee Kutools para Outlook al instante con un solo clic. ¡No espere más: descárguelo ahora y potencie su eficiencia!

Lista de funciones de Kutools para Outlook      Descargar ahora      Ir a comprar

🚀 Descarga con un solo clic — Obtenga todos los complementos de Office

Muy recomendado: Kutools for Office (5 en 1)

Un solo clic para descargar cinco instaladoresa la vez —Kutools para Excel, Outlook, Word, PowerPointy Office Tab Pro.¡Haga clic para descargar ahora!

• ✅Comodidad con un solo clic: Descargue los cinco paquetes de instalación de una sola vez.
• 🚀Listo para cualquier tarea de Office: Instale los complementos que necesite, justo cuando los necesite.
• 🧰Incluido: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint

Acerca del Conjunto⬇ Descargar el Conjunto💳 Comprar el Conjunto