Comment exporter les adresses e-mail associées à un domaine spécifique depuis Outlook ?

Si vous souhaitez exporter les adresses e-mail associées à un domaine spécifique depuis tous vos contacts Outlook, consultez ce tutoriel qui vous guidera pas à pas pour appliquer un code VBA permettant d’extraire toutes les adresses e-mail appartenant à un domaine donné vers un fichier texte, comme illustré dans la capture d’écran ci-dessous.

Exporter Adresse e-mail en fonction d’un domaine spécifique dans Outlook à l’aide d’un code VBA

Pour extraire toutes les Adresse e-mail liées à un domaine spécifique depuis l’ensemble de vos contacts, procédez comme suit :

1. Créez un nouveau fichier texte et attribuez-lui un nom, tel qu’indiqué sur la capture d’écran :

2. Maintenez les touches « ALT + F11 » enfoncées pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ».

3. Cliquez ensuite sur « Insertion » > « Module », puis collez le code suivant dans la fenêtre du module.

« Code VBA : Exporter Adresse 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. Appuyez ensuite sur la touche « F5 » pour exécuter ce code. Une boîte de dialogue s’ouvre : saisissez le domaine e-mail à partir duquel vous souhaitez exporter les adresses e-mail, comme illustré dans la capture d’écran.

5. Cliquez alors sur le bouton « OK » : toutes les adresses e-mail du domaine spécifié sont immédiatement extraites dans le fichier texte, comme le montre la capture d’écran :

Assistant IA Mail dans Outlook : des réponses plus intelligentes, une communication plus claire (magie en un clic !) !

Simplifiez vos tâches quotidiennes dans Outlook avec l’Assistant IA Mail de Kutools pour Outlook. Cet outil intelligent s’appuie sur vos e-mails précédents pour vous suggérer des réponses pertinentes, optimiser le contenu de vos messages et vous aider à rédiger et perfectionner vos e-mails en toute simplicité.

Cette fonctionnalité prend en charge :

• Réponses intelligentes : obtenez des réponses élaborées à partir de vos conversations passées – personnalisées, précises et immédiatement utilisables.
• Contenu amélioré : affinez automatiquement le texte de vos e-mails pour plus de clarté et d’impact.
• Rédaction simplifiée : il vous suffit d’indiquer des mots-clés, et l’IA s’occupe du reste, avec plusieurs styles d’écriture.
• Extensions intelligentes : libérez tout le potentiel de vos idées grâce à des suggestions parfaitement adaptées à votre contexte.
• Résumé : obtenez instantanément des aperçus concis de vos e-mails les plus longs.
• Portée mondiale : traduisez vos e-mails facilement dans n’importe quelle langue.

Cette fonctionnalité prend en charge :

• Réponses intelligentes aux e-mails
• Contenu optimisé
• Brouillons basés sur des mots-clés
• Extension intelligente du contenu
• Résumé d’e-mails
• Traduction multilingue

N’attendez plus –téléchargez dès maintenant l’Assistant IA Mail et profitez-en!

---

Meilleurs outils de productivité Office

Découvrez la toute nouvelle Kutools pour Outlook avec 100+ fonctionnalités incroyables !Cliquez pour télécharger dès maintenant !

🤖Kutools IA:Utilise une technologie d’intelligence artificielle avancée pour gérer vos e-mails sans effort, notamment en répondant, résumant, optimisant, développant, traduisant et rédigeant des messages.

📧Automatisation des e-mails : Réponse automatique (disponible pour POP et IMAP) / Planification de l’envoi d’e-mails / CC/BCC automatique selon des règles lors de l’envoi d’e-mails / Transfert automatique (règle avancée) / Ajout automatique de formules de politesse / Division automatique des e-mails à plusieurs destinataires en messages individuels...

📨Gestion des e-mails : Rappeler un e-mail / Bloquer les e-mails frauduleux par objet et autres critères / Supprimer les e-mails en double / Recherche avancée / Organiser vos dossiers…

📁Pièces jointes Pro : Enregistrer en lot / Détacher en lot / Compresser en lot / Enregistrement automatique / Détachement automatique / Compression automatique…

🌟Magie de l’interface : 😊 Encore plus d’emojis jolis et stylés / Vous prévient à l’arrivée d’e-mails importants / Réduire Outlook au lieu de le fermer...

👍Merveilles en un clic : Répondre à tous avec pièces jointes / E-mails anti-hameçonnage / 🕘 Afficher le fuseau horaire – Heure actuelle de l’expéditeur…

👩🏼‍🤝‍👩🏻Contacts et calendrier : Créer en lot : ajouter un contact à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire…

Utilisez Kutools dans votre langue préférée – compatible avec l’anglais, l’espagnol, l’allemand, le français, le chinois et plus de 40 autres langues !

Débloquez Kutools pour Outlook instantanément en un seul clic ! Ne perdez plus une seconde : téléchargez dès maintenant et boostez votre efficacité !

Liste des fonctionnalités de Kutools pour Outlook      Télécharger maintenant      Accéder à l’achat

🚀 Téléchargement en un clic — Obtenez tous les compléments Office

Fortement recommandé : Kutools for Office (5-en-1)

Un seul clic pour télécharger cinq programmes d’installationen une fois —Kutools pour Excel, Outlook, Word, PowerPointet Office Tab Pro.Cliquez pour télécharger dès maintenant !

• ✅Commodité en un clic : téléchargez les cinq packs d’installation en une seule action.
• 🚀Prêt à relever toutes vos tâches Office : installez les compléments dont vous avez besoin, exactement quand vous en avez besoin.
• 🧰Inclus: Kutools pour Excel / Kutools pour Outlook / Kutools pour Word / Office Tab Pro / Kutools for PowerPoint

À propos de la Suite⬇ Télécharger la Suite💳 Acheter la Suite