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 de regrouper les e-mails par domaines d'expéditeur, car il n'y a pas du tout de champ de domaine de l'expéditeur pour les e-mails. Ici, je vais présenter un code VBA pour vous aider à ajouter une colonne de domaine pour les messages électroniques, puis trier et regrouper facilement les messages électroniques par domaines d'expéditeur dans Outlook.

Pour trier et regrouper les messages électroniques par domaines d'expéditeur dans Microsoft Outlook 2013 et 2010, procédez comme suit:

Étape 1: Ouvrez le dossier de messagerie dans lequel vous trierez tous les messages électroniques par domaines d'expéditeur.

Étape 2: désactivez le volet de lecture en cliquant sur le Volet de lecture > de sur le Voir languette.

Étape 3: Allez-y et cliquez sur le Ajouter des colonnes sur le Voir languette.

Étape 3: dans la boîte de dialogue Afficher les colonnes, cliquez sur l'icône Nouvelle colonne .

Étape 4: Dans la boîte de dialogue Nouvelle colonne, tapez le Domaine dans la zone Nom et conservez le Texte sélectionné dans les deux Type boîte et Format , cliquez enfin sur la OK .

Étape 5: Maintenant que vous revenez à la boîte de dialogue Afficher les colonnes, sélectionnez le Domaine dans la zone Afficher ces colonnes dans cet ordre, déplacez-la ci-dessous À partir de élément, et cliquez sur le OK .

Étape 6: Maintenant, vous revenez au dossier de courrier d'ouverture, sélectionnez tous les messages électroniques en appuyant sur le Ctrl + A touches en même temps.

Étape 7: appuyez sur le autre + F11 clés en attendant pour ouvrir la fenêtre Microsoft Visual Basic pour Applications; puis cliquez sur le insérer > Module, collez ensuite 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 le bouton F5 clé ou Courir bouton dans la barre d'outils.

Étape 9: Le domaine de chaque expéditeur est maintenant extrait et renseigné dans la colonne Domaine.

A. Pour trier les e-mails par domaine d'expéditeur, cliquez simplement sur l'en-tête de colonne de Domaine en haut de tous les messages électroniques;

B. Pour regrouper les e-mails par domaines d'expéditeur, cliquez simplement avec le bouton droit sur l'en-tête de colonne de Domaineet sélectionnez le Regrouper par ce champ dans la liste déroulante. Voir la capture d'écran ci-dessous:

Florales:

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

Article connexe

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

---

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!

🤖 Kutools IA : Utilise une technologie d'IA avancée pour gérer les e-mails sans effort, notamment en répondant, en résumant, en optimisant, en prolongeant, en traduisant et en composant des e-mails.

📧 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 

Déverrouillez instantanément Kutools pour Outlook en un seul clic :gratuit en permanence. N'attendez pas, téléchargez maintenant et augmentez votre efficacité !

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