Hoe exporteert u e-mailadressen op basis van een specifiek domein in Outlook?

AuteurXiaoyang Wijzigingsdatum2025-04-17

Als u e-mailadressen met een specifiek domein uit al uw Outlook-contacten wilt exporteren, volgt u deze handleiding. Met een eenvoudige VBA-code exporteert u alle e-mailadressen van dat domein direct naar een tekstbestand, zoals te zien is op de schermafbeelding hieronder.

doc-export-addresses-with-domain-1

Exporteer E-mailadres op basis van een specifiek domein in Outlook met VBA-code

Volg de onderstaande stappen om alle E-mailadres met een specifiek domein uit alle contacten te extraheren:

1. Maak een nieuw tekstbestand aan en geef het een naam, zoals te zien is in de schermafbeelding:

doc-export-addresses-with-domain-2

2. Druk op „ALT + F11" om het venster Microsoft Visual Basic for Applications te openen.

3. Klik vervolgens op 'Invoegen' > 'Module' en plak de volgende code in het modulevenster.

„VBA-code: Exporteer E-mailadres op basis van een specifiek domein"

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

Opmerking: Pas in de bovenstaande code het Bestandspad „C:\Users\skyyang\Desktop\E-mailadres met specifiek domein.txt" aan naar uw eigen pad.

doc-export-addresses-with-domain-4

4. Druk daarna op de toets "F5" om de code uit te voeren. Er verschijnt een invoervenster; typ hier het e-maildomein waarnaar u het e-mailadres wilt exporteren (zie schermafbeelding):

doc-export-addresses-with-domain-3

5. Klik vervolgens op de knop „OK" en alle e-mailadressen van het specifieke domein worden tegelijkertijd geëxporteerd naar een tekstbestand, zie schermafbeelding:

doc-export-addresses-with-domain-1

AI Mail Assistant in Outlook: Slimmere antwoorden, helderder communicatie (magie met één klik!)

Stroomlijn uw dagelijkse Outlook-taken met de AI Mail Assistant van Kutools voor Outlook. Deze krachtige tool leert van uw eerdere e-mails om intelligente, nauwkeurige antwoorden te genereren, uw e-mailinhoud te optimaliseren en u moeiteloos te ondersteunen bij het opstellen en verbeteren van berichten.

Deze functie ondersteunt:

Slimme antwoorden: Ontvang reacties die zijn samengesteld op basis van uw eerdere gesprekken — persoonlijk, nauwkeurig en direct klaar voor gebruik.
Laat uw e-mailtekst automatisch verfijnen voor meer duidelijkheid en impact.
Moeiteloos opstellen: Geef gewoon trefwoorden op en laat AI de rest doen, in meerdere schrijfstijlen.
Intelligente uitbreidingen: Breid uw gedachten moeiteloos uit met contextbewuste suggesties.
Samenvatting: Ontvang direct beknopte samenvattingen van lange e-mails.
Wereldwijde reikwijdte: Vertaal uw e-mails moeiteloos naar elke gewenste taal.

Deze functie ondersteunt:

Slimme e-mailantwoorden
Geoptimaliseerde inhoud
Op trefwoorden gebaseerde concepten
Intelligente inhoudsuitbreiding
E-mailsamenvatting
Vertaling in meerdere talen

Wacht niet—download nu de AI Mail Assistant en geniet van!

Beste Office-productiviteitstools

Beleef de gloednieuwe Kutools voor Outlook met 100+ ongelooflijke functies!Klik nu om te downloaden!

🤖KUTOOLS AI:Gebruikt geavanceerde AI-technologie om e-mails moeiteloos te verwerken, waaronder beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP), e-mails plannen om te verzenden, automatisch CC/BCC toepassen op basis van regels bij het verzenden van e-mails, automatisch doorsturen (geavanceerde regels), automatisch een begroeting toevoegen en e-mails met meerdere ontvangers automatisch splitsen in afzonderlijke berichten…

📨E-mailbeheer: E-mail terughalen, spam-e-mails blokkeren op basis van onderwerp en andere criteria, dubbele e-mails verwijderen, geavanceerd zoeken en mappen organiseren…

📁Bijlagen Pro: Batch opslaan, batch loskoppelen, batch comprimeren, automatisch opslaan, automatisch loskoppelen en automatisch comprimeren…

🌟Interface-magie: 😊 Nog meer mooie en coole emoji’s / Waarschuwt u bij binnenkomst van belangrijke e-mails / Minimaliseert Outlook in plaats van het programma te sluiten...

👍Eénklikwonderen: Antwoord Allen met Bijlagen / Anti-phishing-e-mails / 🕘Huidige tijd van afzender-zone weergeven...

👩🏼‍🤝‍👩🏻Contacten & agenda: Batch Contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen in afzonderlijke groepen / Verjaardagsherinnering verwijderen…

Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!

Ontgrendel Kutools voor Outlook direct met één klik! Wacht niet langer—download nu en verhoog uw efficiëntie!

Functielijst van Kutools voor Outlook Nu downloaden Naar aankoop gaan

🚀 Eénklikdownload — Ontvang alle Office-invoegtoepassingen

Sterk aanbevolen: Kutools for Office (5-in-1)

Eén klik om vijf installatiebestandentegelijk te downloaden —Kutools voor Excel, Outlook, Word, PowerPointen Office Tab Pro.Klik nu om te downloaden!

✅Eénkliksgemak: Download alle vijf installatiepakketten in één keer.
🚀Klaar voor elke Office-taak: Installeer de invoegtoepassingen die u nodig heeft, precies op het moment dat u ze nodig heeft.
🧰Inbegrepen: Kutools voor Excel / Kutools voor Outlook / Kutools voor Word / Office Tab Pro / Kutools for PowerPoint

Over het pakket ⬇ Download het pakket 💳 Koop het pakket