Comment exporter des adresses e-mail basées sur un domaine spécifique dans Outlook ?
Si vous souhaitez exporter les adresses e-mail avec un domaine spécifique de tous les contacts de votre Outlook, veuillez lire ce didacticiel qui vous aidera à appliquer un code VBA pour extraire toutes les adresses e-mail d'un domaine spécifique dans un fichier texte comme illustré ci-dessous. .
Exporter des adresses e-mail basées sur un domaine spécifique dans Outlook avec le code VBA
Pour extraire toutes les adresses e-mail avec un domaine spécifique de tous les contacts, veuillez suivre les étapes suivantes :
1. Créez un nouveau fichier texte et donnez-lui un nom, voir capture d'écran :
2. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
3. Puis clique insérer > Moduleet collez le code suivant dans la fenêtre Module.
Code VBA : exporter les adresses e-mail en fonction d'un domaine spécifique
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. Et puis, appuyez sur F5 clé pour exécuter ce code. Une boîte de dialogue apparaît, veuillez saisir le domaine de messagerie sur lequel vous souhaitez exporter les adresses e-mail, voir capture d'écran :
5. Puis clique OK , et toutes les adresses e-mail du domaine spécifique sont extraites dans le fichier texte en une seule fois, voir capture d'écran :
Meilleurs outils de productivité bureautique
Dernières nouvelles : lancement de Kutools pour Outlook Version gratuite!
Découvrez le tout nouveau Kutools pour Outlook Version GRATUITE avec plus de 70 fonctionnalités incroyables, à utiliser POUR TOUJOURS! Cliquez pour télécharger maintenant!
📧 Email Automation: Réponse automatique (disponible pour POP et IMAP) / Programmer l'envoi d'e-mails / Auto CC/BCC par règles lors de l'envoi d'un e-mail / Transfert automatique (règles avancées) / Ajouter un message d'accueil automatique / Divisez automatiquement les e-mails multi-destinataires en messages individuels
(I.e. Email Management: Rappel des e-mails / Bloquer les e-mails frauduleux par sujets et autres / Supprimer les e-mails en double / Recherche Avancée / Consolider les dossiers
(I.e. Pièces jointes Pro: Sauvegarde par lots / Détachement par lots / Compression par lots / Enregistrement automatique / Détachement automatique / Compression automatique
???? Magie de l'interface: 😊Plus d'émojis jolis et cool / Vous rappeler lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer
???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes / E-mails anti-hameçonnage / 🕘Afficher le fuseau horaire de l'expéditeur
👩🏼🤝👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer les rappels d'anniversaire
