Comment trier et regrouper les messages en filtrant par domaine de l’e-mail de l’expéditeur dans Outlook ?

Généralement, il est facile d’organiser tous vos e-mails par expéditeur, catégories, objets, taille, etc. dans Microsoft Outlook. Toutefois, il semble impossible de trier ou de regrouper les messages selon le domaine de l’adresse e-mail de l’expéditeur, car aucun champ dédié à ce critère n’existe nativement. Je vous propose ici un code VBA qui ajoute une colonne « Domaine » à vos messages, vous permettant ainsi de les trier et de les regrouper aisément par domaine de l’expéditeur dans Outlook.

Pour trier et regrouper les messages électroniques par Filtrer par domaine de l‹e-mail de l›expéditeur dans Microsoft Outlook 2013 et 2010, procédez comme suit :

Étape 1 : Ouvrez le dossier de messagerie dans lequel vous souhaitez trier tous les messages électroniques en filtrant par domaine de l’adresse e-mail de l’expéditeur.

Étape 2 : Désactivez le volet de lecture en cliquant sur Volet de lecture > Désactivé sous l’onglet Affichage.

Étape 3 : Cliquez ensuite sur Ajouter plusieurs colonnes sous l’onglet Affichage.

Étape 3 : Dans la boîte de dialogue « Afficher les colonnes », cliquez sur le bouton Nouvelle colonne.

Étape 4 : Dans la boîte de dialogue Nouvelle colonne, saisissez Domaine dans la zone Nom, conservez Texte sélectionné à la fois dans la zone Type et dans la zone Format, puis cliquez sur le bouton OK.

Étape 5 : Vous revenez maintenant à la boîte de dialogue Afficher les colonnes ; sélectionnez Domaine dans la zone « Afficher ces colonnes dans cet ordre », déplacez-la sous l’élément De, puis cliquez sur le bouton OK.

Étape 6 : Revenez maintenant au dossier de messagerie ouvert et sélectionnez tous les messages électroniques en appuyant simultanément sur les touches Ctrl + A.

Étape 7 : Appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications ; cliquez ensuite sur Insertion > Module, puis collez le code VBA suivant dans le module.

VBA : Trier et regrouper par Filtrer par domaine de l‹e-mail de l›expéditeur

Sub ListSelectionDomain()
Dim aObj As Object
Dim oProp As Outlook.UserProperty
Dim sDomain
On Error Resume Next
For Each aObj In Application.ActiveExplorer.Selection
Set oMail = aObj
sDomain = Right(oMail.SenderEmailAddress, Len(oMail.SenderEmailAddress) - InStr(1, oMail.SenderEmailAddress, "@"))
Set oProp = oMail.UserProperties.Add("Domain", olText, True)
oProp.Value = sDomain
oMail.Save
Err.Clear
Next
End Sub

Étape 8 : Exécutez ce code VBA en appuyant sur la touche F5 ou en cliquant sur le bouton Exécuter dans la barre d’outils.

Étape 9 : Le domaine de chaque expéditeur est désormais extrait et inséré dans la colonne Domaine.

A.Pour trier les messages électroniques par Filtrer par domaine de l‹e-mail de l›expéditeur, cliquez simplement sur l’en-tête de la colonne Domainesituée en haut de la liste des messages électroniques ;

B. Pour regrouper les messages électroniques en fonction du domaine de l’e-mail de l’expéditeur, cliquez avec le bouton droit sur l’en-tête de la colonne Domaine, puis sélectionnez Regrouper par ce champ dans la liste déroulante. Voir la capture d’écran ci-dessous :

Remarques:

(1) Ce code VBA fonctionne parfaitement sous Outlook 2013 et 2010, mais pas sous Outlook 2007.
(2) Vous pouvez facilement enregistrer votre vue personnalisée grâce à Comment enregistrer et copier les paramètres d’affichage vers d’autres dossiers dans Outlook ?

Article associé

Comment afficher le domaine des expéditeurs dans Liste des emails dans Outlook ?

---

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