¿Cómo ordenar y agrupar por dominio del remitente en Outlook?

Normalmente, podemos organizar fácilmente todos los mensajes de correo electrónico por remitente, categorías, asuntos, tamaño, etc., en Microsoft Outlook. Sin embargo, parece imposible ordenar o agrupar los mensajes de correo electrónico por dominios de los remitentes, ya que no hay un campo Dominio del remitente para los correos electrónicos en absoluto. Aquí te presentaré un código VBA que te ayudará a agregar una columna de Dominio para los mensajes de correo electrónico, luego podrás ordenar y agrupar los mensajes de correo electrónico por los dominios de los remitentes fácilmente en Outlook.

Para ordenar y agrupar los mensajes de correo electrónico por dominios de los remitentes en Microsoft Outlook 2013 y 2010, sigue los siguientes pasos:

Paso 1: Abre la carpeta de correo donde ordenarás todos los mensajes de correo electrónico por dominios de los remitentes.

Paso 2: Desactiva el Panel de lectura haciendo clic en Panel de lectura > Desactivar en la pestaña Ver.

Paso 3: Continúa y haz clic en Agregar columnas en la pestaña Ver.

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, escribe Dominio en el cuadro Nombre, y mantén seleccionado Texto en ambos cuadros Tipo y Formato, finalmente haz clic en el botón Aceptar.

Paso 5: Ahora regresas al cuadro de diálogo Mostrar columnas, selecciona Dominio en el cuadro Mostrar estas columnas en este orden, muévelo debajo del elemento De, y haz clic en el botón Aceptar.

Paso 6: Ahora regresas a la carpeta de correo abierta, selecciona todos los mensajes de correo electrónico presionando las teclas Ctrl + A al mismo tiempo.

Paso 7: Presiona las teclas Alt + F11 al mismo tiempo para abrir la ventana de Microsoft Visual Basic para Aplicaciones; luego haz clic en Insertar > Módulo, y luego pega el siguiente código VBA en el módulo.

VBA: Ordenar y agrupar 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: Ejecuta este código VBA presionando la tecla F5 o el botón Ejecutar en la barra de herramientas flotante.

Paso 9: Ahora se extrae el dominio de cada remitente y se llena en la columna Dominio.

A. Para ordenar los mensajes de correo electrónico por dominios de los remitentes, simplemente haz clic en el encabezado de columna de Dominio en la parte superior de todos los mensajes de correo electrónico;

B. Para agrupar los mensajes de correo electrónico por dominios de los remitentes, simplemente haz clic derecho en el encabezado de columna de Dominio, y selecciona Agrupar por este campo desde la lista desplegable. Ver captura de pantalla a continuación:

Notas:

(1) Este código VBA funciona bien en Outlook 2013 y 2010, pero no funciona en Outlook 2007.
(2) Puedes guardar fácilmente la vista personalizada con ¿Cómo guardar y copiar configuraciones de vista a otras carpetas en Outlook?

Artículo relacionado

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

---

Las mejores herramientas de productividad para Office

Noticia de última hora: ¡Kutools para Outlook lanza su versión gratuita!

¡Descubre el nuevo Kutools para Outlook con más de100 increíbles funciones! Haz clic para descargar ahora.

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

📧 Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar envío de correo electrónico / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con múltiples destinatarios en emails individuales...

📨 Gestión de correo electrónico: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros filtros / Eliminar duplicados / Búsqueda Avanzada / Organizar carpetas...

📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...

🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan emails importantes / Minimizar Outlook en vez de cerrar...

👍 Funciones en un clic: Responder a Todos con Adjuntos / Correos antiphishing / 🕘Mostrar la zona horaria del remitente...

👩🏼‍🤝‍👩🏻 Contactos y Calendario: Agregar contacto en lote desde emails seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

Utiliza Kutools en tu idioma preferido — disponible en Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales.

Activa Kutools para Outlook al instante con un solo clic. No esperes más, descarga ahora y maximiza tu productividad.

Lista de características de Kutools para Outlook Descargar ahora Ir a Comprar

🚀 Descarga con un solo clic — Consigue todos los complementos para Office

Muy recomendado: Kutools para Office (5 en1)

Descarga los cinco instaladores a la vez con solo un clic — Kutools para Excel, Outlook, Word, PowerPoint y Office Tab Pro. Haz clic para descargar ahora.

• ✅ Comodidad en un solo clic: Descarga los cinco paquetes de instalación en una sola acción.
• 🚀 Listo para cualquier tarea en Office: Instala los complementos que necesites cuando los necesites.
• 🧰 Incluye: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint

Acerca del paquete ⬇ Descarga el paquete 💳 Compra el paquete