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

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 lo ayudará a aplicar un código VBA para extraer todas las direcciones de correo electrónico en un dominio específico a un archivo de texto como se muestra a continuación. .

Exporte direcciones de correo electrónico basadas en 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 los siguientes pasos:

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

2. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

3. Luego, haz clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.

Código VBA: exporte 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

Note: En el código anterior, cambie la ruta del archivo "C:\Usuarios\skyyang\Escritorio\Direcciones de correo electrónico con dominio específico.txt" a la tuya.

4. Y luego, presione F5 clave para ejecutar este código. Aparece un cuadro emergente, escriba el dominio de correo electrónico en el que desea exportar las direcciones de correo electrónico, vea la captura de pantalla:

5. Luego, haz clic OK y todas las direcciones de correo electrónico en el dominio específico se extraen en el archivo de texto a la vez, vea la captura de pantalla: