Skip to main content

¿Cómo exportar direcciones de correo electrónico según un dominio específico en Outlook?

Author: Xiaoyang Last Modified: 2025-06-04

Si desea exportar las direcciones de correo electrónico con un dominio específico de todos los contactos en su Outlook, lea este tutorial que le ayudará a aplicar un código VBA para extraer todas las direcciones de correo electrónico de un dominio específico a un archivo de texto, como se muestra en la siguiente captura de pantalla.

doc-export-addresses-with-domain-1


Exportar direcciones de correo electrónico según un dominio específico en Outlook con código VBA

Para extraer todas las direcciones de correo electrónico con un dominio específico de todos los contactos, siga estos pasos:

1. Cree un nuevo archivo de texto y asígnele un nombre, vea la siguiente captura de pantalla:

doc-export-addresses-with-domain-2

2. Mantenga presionadas las teclas "ALT + F11" para abrir la ventana "Microsoft Visual Basic para Aplicaciones".

3. Luego, haga clic en "Insertar" > "Módulo", y pegue el siguiente código en la Ventana del Módulo.

"Código VBA: Exportar direcciones de correo electrónico según un dominio específico"

Dim GDomain As String
Dim GFileSystem As Object
Dim GFilePath As String
Dim GFileObj As Object
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, _
  ByVal ipOperation As String, ByVal lpFile As String, _
  ByVal lpParameters As String, ByVal lpDirectory As String, _
  ByVal nShowCmd As Long) As Long

Sub ExportListOfEmailAddressesInSpecificDomain()
'Updateby ExtendOffice
Dim xStore As Store
Dim xFolder As Folder
On Error Resume Next
GDomain = InputBox("Enter domain(@***.com):", "Kutools for Outlook")
If Len(GDomain) <> 0 Then
  GFilePath = "C:\Users\skyyang\Desktop\Email Addresses with specific domain.txt" 'Specify the file path
  Set GFileSystem = CreateObject("Scripting.FileSystemObject")
  Set GFileObj = GFileSystem.CreateTextFile(GFilePath, True)
  For Each xStore In Application.Session.Stores
    For Each xFolder In xStore.GetRootFolder.Folders
      If xFolder.DefaultItemType = olContactItem Then
        Call ProcessFolders(xFolder)
      End If
    Next
  Next
  GFileObj.Close
  ShellExecute 0&, vbNullString, GFilePath, vbNullString, vbNullString, 1
End If
End Sub

Sub ProcessFolders(ByVal Fld As Outlook.Folder)
Dim xContactItems As Items
Dim I As Long
Dim xContact As ContactItem
Dim xSubFolder As Folder
On Error Resume Next
Set xContactItems = Fld.Items
For I = xContactItems.Count To 1 Step -1
  If xContactItems(I).Class = olContact Then
    Set xContact = xContactItems(I)
    If InStr(xContact.Email1Address, GDomain) > 0 Then
      GFileObj.WriteLine (xContact.Email1Address & vbCrLf)
    ElseIf InStr(xContact.Email2Address, GDomain) > 0 Then
      GFileObj.WriteLine (xContact.Email2Address & vbCrLf)
    ElseIf InStr(xContact.Email3Address, GDomain) > 0 Then
      GFileObj.WriteLine (xContact.Email3Address & vbCrLf)
    End If
  End If
Next
If Fld.Folders.Count > 0 Then
  For Each xSubFolder In Fld.Folders
    If xSubFolder.DefaultItemType = olContactItem Then
      Call ProcessFolders(xSubFolder)
    End If
  Next
End If
End Sub
Nota: En el código anterior, cambie la ruta del archivo "C:\Users\skyyang\Desktop\Email Addresses with specific domain.txt" por la suya propia.

doc-export-addresses-with-domain-4

4. Luego, presione la tecla "F5" para ejecutar este código. Aparecerá un cuadro de diálogo, escriba el dominio de correo electrónico según el cual desea exportar las direcciones de correo electrónico, vea la siguiente captura de pantalla:

doc-export-addresses-with-domain-3

5. Luego, haga clic en el botón "Aceptar", y todas las direcciones de correo electrónico del dominio específico se extraerán al archivo de texto de una vez, vea la siguiente captura de pantalla:

doc-export-addresses-with-domain-1

Asistente de Correo AI en Outlook: Respuestas más Inteligentes, Comunicación más Clara (¡magia con un solo clic!) GRATIS

Simplifica tus tareas diarias en Outlook con el Asistente de Correo AI de Kutools para Outlook. Esta poderosa herramienta aprende de tus correos electrónicos anteriores para ofrecerte respuestas inteligentes y precisas, optimizar el contenido de tus correos y ayudarte a redactar y perfeccionar mensajes sin esfuerzo.
doc ai email handle

Esta función admite:

  • Respuestas Inteligentes: Obtén respuestas elaboradas a partir de tus conversaciones pasadas, personalizadas, precisas y listas para usar.
  • Contenido Mejorado: Refina automáticamente el texto de tus correos electrónicos para mayor claridad e impacto.
  • Redacción sin Esfuerzo: Solo proporciona palabras clave y deja que la IA haga el resto, con múltiples estilos de escritura.
  • Extensiones Inteligentes: Amplía tus ideas con sugerencias contextualizadas.
  • Resúmenes: Obtén resúmenes concisos de correos electrónicos largos al instante.
  • Alcance Global: Traduce tus correos electrónicos a cualquier idioma fácilmente.

Esta función admite:

  • Respuestas inteligentes de correo electrónico
  • Contenido optimizado
  • Borradores basados en palabras clave
  • Extensión inteligente de contenido
  • Resumen de correos electrónicos
  • Traducción multilingüe

¡Lo mejor de todo es que esta función es completamente gratis para siempre! No esperes más, ¡descarga ahora el Asistente de Correo AI y disfruta!


Las mejores herramientas de productividad para Office

Últimas noticias: ¡Kutools para Outlook lanza su versión gratuita!

Descubre la nueva versión GRATUITA de Kutools para Outlook con más de70 funciones increíbles, ¡para que la disfrutes PARA SIEMPRE! ¡Haz 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 emails.

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

📨 Gestión de Email: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros criterios / Eliminar correos electrónicos 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 correos importantes / Minimiza Outlook en vez de cerrarlo...

👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos anti-phishing / 🕘Mostrar la zona horaria del remitente...

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

Desbloquea al instante Kutools para Outlook con un solo clic. ¡No esperes más, descárgalo ahora y aumenta tu productividad!

kutools for outlook features1 kutools for outlook features2