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ère nouvelle : Kutools pour Outlook lance sa version gratuite !

Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !

🤖 Kutools IA : Exploite une technologie avancée d’IA pour gérer les e-mails en toute simplicité, notamment pour répondre, résumer, optimiser, étendre, traduire et rédiger des e-mails.

📧 Automatisation des E-mails : Réponse automatique (disponible pour POP et IMAP) / Programmer l’envoi d’un e-mail / CC/BCC automatique par règle lors de l’envoi / Transfert automatique (règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les e-mails multi-destinataires en messages individuels ...

📨 Gestion des E-mails : Rappeler lemail / Bloquer les e-mails frauduleux par objet et autres critères / Supprimer les doublons / Recherche Avancée / Organiser les dossiers ...

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

🌟 Interface magique : 😊Plus d’emojis élégants et amusants / Vous rappelle lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer ...

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

👩🏼‍🤝‍👩🏻 Contacts & Calendrier : Ajouter en lot des contacts à 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 – prend en charge l’Anglais, l’Espagnol, l’Allemand, le Français, le Chinois et plus de40 autres !

Débloquez instantanément Kutools pour Outlook en un seul clic. N’attendez pas, téléchargez dès maintenant pour gagner en efficacité !

Tableau unidimensionnel des fonctionnalités de Kutools pour Outlook Télécharger maintenant Aller à Acheter

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

Recommandé vivement : Kutools pour Office (5-en-1)

Un clic pour télécharger cinq installateurs en une seule fois — Kutools pour Excel, Outlook, Word, PowerPoint et Office Tab Pro. Cliquez pour télécharger dès maintenant !

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

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