Come esportare gli indirizzi email associati a un dominio specifico in Outlook?

AutoreXiaoyang Data di modifica2025-04-17

Se desidera esportare gli indirizzi email con un dominio specifico da tutti i contatti in Outlook, legga questa guida: la aiuterà ad applicare un codice VBA per estrarre tutti gli indirizzi email appartenenti a un dominio specifico in un file di testo, come mostrato nello screenshot seguente.

doc-export-addresses-with-domain-1

Esportare Indirizzo Email in base a un dominio specifico in Outlook con codice VBA

Per estrarre tutti i Indirizzo Email con un dominio specifico da tutti i contatti, proceda come segue:

1. Crea un nuovo file di testo e assegnagli un nome, come mostrato nello screenshot:

doc-export-addresses-with-domain-2

2. Tenga premuti i tasti «ALT + F11» per aprire la finestra di Microsoft Visual Basic, Applications.

3. Quindi, faccia clic su «Inserisci» > «Modulo» e incolla il seguente codice nella finestra del modulo.

«Codice VBA: Esportare Indirizzo Email 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

Nota: Nel codice riportato sopra, sostituisca il percorso Percorso file «C:\Users\skyyang\Desktop\Indirizzo Email con dominio specifico.txt» con il Suo.

doc-export-addresses-with-domain-4

4. Successivamente, premi il tasto "F5" per eseguire il codice. Si aprirà una finestra di dialogo: digita il dominio email in base al quale desideri esportare gli indirizzi email (vedi screenshot).

doc-export-addresses-with-domain-3

5. Poi, faccia clic sul pulsante «OK» e tutti gli indirizzi email del dominio specificato verranno estratti contemporaneamente nel file di testo, come mostrato nello screenshot:

doc-export-addresses-with-domain-1

Assistente email IA in Outlook: risposte più intelligenti, comunicazione più chiara (magia con un clic!)

Ottimizza le tue attività quotidiane in Outlook con l’Assistente email IA di Kutools per Outlook: uno strumento potente che impara dalle tue email precedenti per suggerirti risposte intelligenti e precise, ottimizzare il contenuto dei messaggi e aiutarti a scrivere e perfezionare le tue email in modo rapido e senza sforzo.

Questa funzionalità supporta:

Risposte intelligenti: ottieni risposte generate dalle tue conversazioni precedenti—personalizzate, precise e pronte all’uso.
Contenuto migliorato: affina automaticamente il testo delle tue email per renderlo più chiaro ed efficace.
Composizione senza sforzo: inserisci solo alcune parole chiave e lascia che l’IA si occupi del resto, con più stili di scrittura.
Estensioni intelligenti: amplia i tuoi pensieri con suggerimenti contestuali.
Sintesi: ottieni subito una panoramica rapida e concisa delle email più lunghe.
Portata globale: traduci le tue email in qualsiasi lingua con estrema facilità.

Questa funzionalità supporta:

Risposte email intelligenti
Contenuto ottimizzato
Bozze basate su parole chiave
Estensione intelligente del contenuto
Sintesi delle email
Traduzione multilingue

Non aspettare—scarica subito l’Assistente email IA e approfitta di!

Migliori strumenti per la produttività in Office

Scopri il nuovissimo Kutools per Outlook con 100+ funzionalità incredibili!Clicca per scaricare ora!

🤖KUTOOLS AI:Utilizza tecnologia AI avanzata per gestire le email senza sforzo, inclusi rispondere, riassumere, ottimizzare, estendere, tradurre e comporre email.

📧Automazione delle email: Risposta automatica (disponibile per POP e IMAP) / Invio email programmato / CC/BCC automatico in base a regole durante l’invio delle email / Inoltro automatico (regola avanzata) / Aggiunta automatica del saluto / Divisione automatica delle email con destinatari multipli in messaggi individuali...

📨Gestione delle email: Richiama Email / Blocca le email truffaldine in base all’oggetto e ad altri criteri / Elimina email duplicate / Ricerca avanzata / Organizza cartelle...

📁Allegati Pro: Salvataggio batch / Distacco batch / Compressione batch / Salvataggio automatico / Distacco automatico / Compressione automatica…

🌟Magia dell’interfaccia: 😊 Più emoji graziose e accattivanti / Ti avvisa all’arrivo di email importanti / Riduci a icona Outlook invece di chiuderlo...

👍Meraviglie con un clic: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘 Mostra il fuso orario – Ora corrente del mittente...

👩🏼‍🤝‍👩🏻Contatti e calendario: Aggiungi contatti in blocco dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi i promemoria dei compleanni...

Usa Kutools nella tua lingua preferita: supporta inglese, spagnolo, tedesco, francese, cinese e oltre 40 altre lingue!

Sblocca istantaneamente Kutools per Outlook con un solo clic! Non aspettare oltre: scaricalo ora e aumenta subito la tua efficienza!

Elenco funzionalità di Kutools per Outlook Scarica ora Vai all’acquisto

🚀 Download con un clic — Ottieni tutti i componenti aggiuntivi per Office

Fortemente consigliato: Kutools for Office (5-in-1)

Un clic per scaricare cinque programmi di installazionetutti insieme —Kutools per Excel, Outlook, Word, PowerPointe Office Tab Pro.Clicca per scaricare ora!

✅Comodità con un solo clic: scarica tutti e cinque i pacchetti di installazione in un’unica azione.
🚀Pronto per qualsiasi attività in Office: installa i componenti aggiuntivi che ti servono, esattamente quando ti servono.
🧰Inclusi: Kutools per Excel / Kutools per Outlook / Kutools per Word / Office Tab Pro / Kutools for PowerPoint

Informazioni sulla Suite ⬇ Scarica la Suite 💳 Acquista la Suite