Comment trier et regrouper par domaine d'expéditeur dans Outlook ?

Normalement, nous pouvons facilement organiser tous les messages électroniques par expéditeur, catégories, sujets, taille, etc. dans Microsoft Outlook. Cependant, il semble impossible de trier ou regrouper les messages électroniques par domaines d'expéditeurs, car il n'y a aucun champ Domaine d'expéditeur pour les messages électroniques. Ici, je vais vous présenter un code VBA pour vous aider à ajouter une colonne Domaine aux messages électroniques, puis trier et regrouper les messages électroniques par domaines d'expéditeurs facilement dans Outlook.

Pour trier et regrouper les messages électroniques par domaines d'expéditeurs dans Microsoft Outlook 2013 et 2010, veuillez suivre les étapes suivantes :

Étape 1 : Ouvrez le dossier de courrier où vous allez trier tous les messages électroniques par domaines d'expéditeurs.

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

Étape 3 : Continuez et cliquez sur Ajouter des Colonnes dans 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, tapez Domaine dans la zone Nom, et conservez Texte sélectionné dans les deux zones Type et Format, puis cliquez sur le bouton OK.

Étape 5 : Maintenant, vous revenez à la boîte de dialogue Afficher les Colonnes, sélectionnez Domaine dans la zone Afficher ces colonnes dans cet ordre, déplacez-le sous l'élément De, et cliquez sur le bouton OK.

Étape 6 : Maintenant, vous revenez au dossier de courrier ouvert, 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 for Applications ; puis cliquez sur Insérer > Module, ensuite collez le code VBA suivant dans le module.

VBA : Trier et regrouper par domaine d'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 sur le bouton Exécuter dans la barre d'outils flottante.

Étape 9 : Maintenant, chaque domaine d'expéditeur est extrait et rempli dans la colonne Domaine.

A. Pour trier les messages électroniques par domaines d'expéditeurs, il suffit de cliquer sur l'en-tête de colonne Domaine en haut de tous les messages électroniques ;

B. Pour regrouper les messages électroniques par domaines d'expéditeurs, faites un clic droit sur l'en-tête de colonne Domaine, et sélectionnez Regrouper par ce champ dans la liste déroulante. Voir capture d'écran ci-dessous :

Remarques :

(1) Ce code VBA fonctionne bien dans Outlook 2013 et 2010, mais ne fonctionne pas dans Outlook 2007.
(2) Vous pouvez facilement enregistrer la vue personnalisée avec Comment enregistrer et copier les paramètres de vue vers d'autres dossiers dans Outlook ?

Article connexe

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

---

Meilleurs outils de productivité pour Office

Dernières nouvelles : Kutools pour Outlook lance une version gratuite !

Découvrez la toute nouvelle version GRATUITE de Kutools pour Outlook avec plus de70 fonctionnalités incroyables, à utiliser POUR TOUJOURS ! Cliquez pour télécharger maintenant !

🤖 Kutools IA : Utilise une technologie IA avancée pour gérer les emails sans effort, y compris répondre, résumer, optimiser, étendre, traduire et composer des emails.

📧 Automatisation des emails : Réponse automatique (Disponible pour POP et IMAP) / Programmation d'envoi d'emails / CC/BCC automatique par règle lors de l'envoi d'un email / Transfert automatique (Règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les emails multi-destinataires en messages individuels...

📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujets et autres / Supprimer les emails en double / Recherche avancée / Organiser les dossiers...

📁 Pièces jointes Pro : Enregistrement par lot / Détachement par lot / Compression par lot / Enregistrement automatique / Détachement automatique / Compression automatique...

🌟 Magie de l'interface : 😊Plus d'emojis jolis et cool / Vous rappeler lorsque des emails importants arrivent / Réduire Outlook au lieu de fermer...

👍 Merveilles en un clic : Répondre à tous avec pièces jointes / Emails anti-phishing / 🕘Afficher le fuseau horaire de l'expéditeur...

👩🏼‍🤝‍👩🏻 Contacts & Calendrier : Ajouter des contacts par lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d'anniversaire...

Déverrouillez instantanément Kutools pour Outlook d'un simple clic. Ne tardez pas, téléchargez maintenant et boostez votre efficacité !

Liste des fonctionnalités de Kutools pour Outlook Télécharger la version gratuite Passer à la version professionnelle