Wie exportiert man E-Mail-Adressen basierend auf einer bestimmten Domäne in Outlook?

Wenn Sie die E-Mail-Adressen einer bestimmten Domäne aus allen Ihren Outlook-Kontakten exportieren möchten, lesen Sie bitte dieses Tutorial. Es zeigt Ihnen, wie Sie einen VBA-Code nutzen, um alle E-Mail-Adressen dieser Domäne in eine Textdatei zu extrahieren – wie im folgenden Screenshot dargestellt.

Exportieren Sie E-Mail-Adresse basierend auf einer bestimmten Domäne in Outlook mithilfe eines VBA-Codes

Um alle E-Mail-Adresse mit einer bestimmten Domäne aus allen Kontakten zu extrahieren, gehen Sie bitte wie folgt vor:

1. Erstellen Sie eine neue Textdatei und vergeben Sie einen Namen dafür – siehe Screenshot:

2. Drücken Sie gleichzeitig die Tasten „ALT + F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

3. Klicken Sie anschließend auf „Einfügen“ > „Modul“ und fügen Sie den folgenden Code in das Modulfenster ein.

„VBA-Code: Exportieren von E-Mail-Adresse basierend auf einer bestimmten Domäne“

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

4. Drücken Sie anschließend die Taste „F5“, um den Code auszuführen. Es erscheint ein Eingabefeld – geben Sie dort bitte die E-Mail-Domain ein, nach der Sie die E-Mail-Adresse exportieren möchten (siehe Screenshot):

5. Klicken Sie anschließend auf die Schaltfläche „OK“. Daraufhin werden alle E-Mail-Adressen der angegebenen Domäne sofort in die Textdatei extrahiert – siehe Screenshot:

KI-E-Mail-Assistent in Outlook: Intelligentere Antworten, klarere Kommunikation (Ein-Klick-Zauber!)

Vereinfachen Sie Ihre täglichen Outlook-Aufgaben mit dem KI-E-Mail-Assistenten von Kutools für Outlook – einem leistungsstarken Tool, das aus Ihren bisherigen E-Mails lernt, um intelligente und präzise Antworten vorzuschlagen, Ihren E-Mail-Inhalt zu optimieren und Ihnen das mühelose Verfassen und Überarbeiten von Nachrichten zu ermöglichen.

Diese Funktion unterstützt:

• Intelligente Antworten: Erhalten Sie maßgeschneiderte, präzise und sofort einsatzbereite Antworten, die auf Ihren bisherigen Gesprächen basieren.
• Verbesserter Inhalt: Verbessern Sie Ihren E-Mail-Text automatisch – für mehr Klarheit und Wirkung.
• Müheloses Verfassen: Geben Sie einfach Stichwörter ein und überlassen Sie den Rest der KI – mit mehreren Schreibstilen.
• Intelligente Erweiterungen: Erweitern Sie Ihre Gedanken mit kontextbezogenen Vorschlägen.
• Zusammenfassung: Erhalten Sie sofort prägnante Übersichten über lange E-Mails.
• Globale Reichweite: Übersetzen Sie Ihre E-Mails mühelos in jede gewünschte Sprache.

Diese Funktion unterstützt:

• Intelligente E-Mail-Antworten
• Optimierter Inhalt
• Stichwortbasierte Entwürfe
• Intelligente Inhaltserweiterung
• E-Mail-Zusammenfassung
• Mehrsprachige Übersetzung

Warten Sie nicht –laden Sie jetzt den KI-E-Mail-Assistenten herunter und genießen Sie!

---

Beste Office-Produktivitätswerkzeuge

Erleben Sie das komplett neue Kutools für Outlook mit 100+ unglaublichen Funktionen!Jetzt zum Download klicken!

🤖KUTOOLS AI:Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu verwalten – einschließlich Beantworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧E-Mail-Automatisierung: Automatische Antworten (verfügbar für POP und IMAP) / E-Mails zeitgesteuert versenden / Beim Senden automatisch CC/BCC basierend auf Regeln hinzufügen / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Grußformel einfügen / Mehrfachadressierte E-Mails automatisch in Einzelnachrichten aufteilen …

📨E-Mail-Verwaltung: E-Mails zurückrufen, Betrugs-E-Mails anhand von Betreffzeilen und weiteren Kriterien blockieren, doppelte E-Mails löschen, Erweiterte Suche, Ordner organisieren …

📁Anhänge Pro: Stapelweise speichern / Stapelweise lösen / Stapelweise komprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung …

🌟Oberflächenzauber:😊Noch mehr hübsche und coole Emojis/Benachrichtigung bei wichtigen eingehenden E-Mails/Outlook minimieren statt schließen...

👍Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Aktuelle Uhrzeit der Absender-Zeitzone anzeigen...

👩🏼‍🤝‍👩🏻Kontakte & Kalender:Stapelweise Kontakte aus ausgewählten E-Mails hinzufügen/Eine Kontaktgruppe in einzelne Kontakte aufteilen/Geburtstagserinnerung entfernen...

Nutzen Sie Kutools in Ihrer bevorzugten Sprache – mit Unterstützung für Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere Sprachen!

Kutools für Outlook mit nur einem Klick sofort freischalten! Warten Sie nicht – laden Sie jetzt herunter und steigern Sie Ihre Effizienz!

Funktionsliste von Kutools für Outlook      Jetzt herunterladen      Zum Kauf gehen

🚀 Ein-Klick-Download – Holen Sie sich alle Office-Add-Ins

Stark empfohlen: Kutools for Office (5-in-1)

Mit einem Klick fünf Installationsprogrammegleichzeitig herunterladen –Kutools für Excel, Outlook, Word, PowerPointund Office Tab Pro.Jetzt zum Download klicken!

• ✅Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete mit nur einem Klick herunter.
• 🚀Bereit für jede Office-Aufgabe: Installieren Sie die Add-Ins, die Sie brauchen – genau dann, wenn Sie sie benötigen.
• 🧰Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools for PowerPoint

Über das Paket⬇ Das Paket herunterladen💳 Das Paket kaufen