Hoe e-mailadressen exporteren op basis van een specifiek domein in Outlook?
Als u de e-mailadressen met een specifiek domein van alle contacten in uw Outlook wilt exporteren, lees dan deze tutorial die u zal helpen een VBA-code toe te passen voor het extraheren van alle e-mailadressen in een specifiek domein naar een tekstbestand zoals hieronder afgebeeld .
Exporteer e-mailadressen op basis van een specifiek domein in Outlook met VBA-code
Ga als volgt te werk om alle e-mailadressen met een specifiek domein uit alle contacten te extraheren:
1. Maak een nieuw tekstbestand aan en geef het een naam, zie screenshot:
2. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
3. Dan klikken Invoegen > Moduleen plak de volgende code in het modulevenster.
VBA-code: export e-mailadressen op basis van 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
4. En druk dan op F5 sleutel om deze code uit te voeren. Er verschijnt een promptvenster, typ het e-maildomein waarop u de e-mailadressen wilt exporteren, zie screenshot:
5. Dan klikken OK knop, en alle e-mailadressen in het specifieke domein worden in één keer in het tekstbestand geëxtraheerd, zie screenshot:
AI Mail Assistant in Outlook: slimmere antwoorden, duidelijkere communicatie (magie met één klik!) FREE
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 en nauwkeurige reacties te bieden, uw e-mailinhoud te optimaliseren en u te helpen moeiteloos berichten op te stellen en te verfijnen.
Deze functie ondersteunt:
- Slimme antwoorden: ontvang antwoorden op basis van uw eerdere gesprekken: op maat gemaakt, nauwkeurig en klaar voor gebruik.
- Verbeterde inhoud: verfijn uw e-mailtekst automatisch voor duidelijkheid en impact.
- Moeiteloze compositie: geef gewoon trefwoorden op en laat AI de rest doen, met meerdere schrijfstijlen.
- Intelligente extensies: breid uw gedachten uit met contextbewuste suggesties.
- Samenvatting: Krijg direct beknopte overzichten van lange e-mails.
- Wereldwijd bereik: Vertaal uw e-mails eenvoudig naar elke taal.
Deze functie ondersteunt:
- Slimme e-mailantwoorden
- Geoptimaliseerde inhoud
- Op trefwoorden gebaseerde concepten
- Intelligente inhoudsextensie
- Samenvatting van e-mail
- Meertalige vertaling
Het beste van alles is dat deze functie dat wel is compleet gratis voor altijd! Wacht niet—download nu AI Mail Assistant en geniet ervan!
Beste Office-productiviteitstools
Breaking News: Kutools voor Outlook wordt gelanceerd Gratis versie!
Ervaar de geheel nieuwe Kutools voor Outlook GRATIS versie met meer dan 70 ongelooflijke functies, die je VOOR ALTIJD kunt gebruiken! Klik om nu te downloaden!
???? Email Automation: Automatisch antwoord (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: E-mails intrekken / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Herinner u eraan wanneer belangrijke e-mails binnenkomen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
