Come esportare indirizzi e-mail in base a un dominio specifico in Outlook?

Se desideri esportare gli indirizzi e-mail con un dominio specifico da tutti i contatti nel tuo Outlook, leggi questo tutorial che ti aiuterà ad applicare un codice VBA per estrarre tutti gli indirizzi e-mail in un dominio specifico in un file di testo come mostrato nell'immagine sottostante .

Esporta indirizzi e-mail in base a un dominio specifico in Outlook con codice VBA

Per estrarre tutti gli indirizzi email con un dominio specifico da tutti i contatti, procedi nel seguente modo:

1. Crea un nuovo file di testo e assegnagli un nome, vedi screenshot:

2. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

3. Quindi, fare clic inserire > Modulie incolla il codice seguente nella finestra del modulo.

Codice VBA: esporta indirizzi e-mail in base a un dominio specifico

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:: Nel codice sopra, cambia il percorso del file "C:\Utenti\skyyang\Desktop\Indirizzi e-mail con dominio.txt specifico" al tuo

4. E poi, premi F5 chiave per eseguire questo codice. Viene visualizzata una finestra di messaggio, digitare il dominio e-mail su cui si desidera esportare gli indirizzi e-mail in base, vedere screenshot: