Hoe sorteer en groepeer je op basis van het domein van het e-mailadres van de afzender in Outlook?

Normaal gesproken kunnen we alle e-mailberichten gemakkelijk ordenen op afzender, categorieën, onderwerpen, grootte, enzovoort in Microsoft Outlook. Het lijkt echter onmogelijk om e-mailberichten te sorteren of te groeperen op Filteren op domein van afzender's e-mailadres, omdat er helemaal geen Filteren op domein van afzender's e-mailadres-veld voor e-mailberichten bestaat. Hier introduceer ik een VBA-code waarmee u een kolom ‘Domein’ kunt toevoegen aan e-mailberichten, zodat u deze daarna gemakkelijk op Filteren op domein van afzender's e-mailadres kunt sorteren en groeperen in Outlook.

Om e-mailberichten te sorteren en te groeperen op Filteren op domein van afzender's e-mailadres in Microsoft Outlook 2013 en 2010, gaat u als volgt te werk:

Stap 1: Open de e-mailmap waarin u alle e-mailberichten wilt sorteren op het domein van het afzenderadres.

Stap 2: Schakel het leesvenster uit door te klikken op Leesvenster > Uit op het tabblad Beeld.

Stap 3: Klik vervolgens op Meerdere kolommen toevoegen op het tabblad Beeld.

Stap 3: Klik in het dialoogvenster Kolommen weergeven op de knop Nieuwe kolom.

Stap 4: Typ in het dialoogvenster Nieuwe kolom in het vak Naam Domein, en laat Tekst geselecteerd in zowel het vak Type als het vak Opmaak; klik ten slotte op de knop OK.

Stap 5: U keert nu terug naar het dialoogvenster Kolommen weergeven. Selecteer Domein in het vak Deze kolommen weergeven in deze volgorde, verplaats deze onder het item Van en klik op de knop OK.

Stap 6: Ga nu terug naar de geopende e-mailmap en selecteer alle e-mailberichten door tegelijkertijd op Ctrl + A te drukken.

Stap 7: Druk tegelijkertijd op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen. Klik vervolgens op Invoegen > Module en plak de volgende VBA-code in de module.

VBA: Sorteren en groeperen op Filteren op domein van afzender's e-mailadres

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

Stap 8: Voer deze VBA-code uit door op de toets F5 te drukken of op de knop Uitvoeren in de werkbalk te klikken.

Stap 9: Het domein van elke afzender wordt nu geëxtraheerd en automatisch ingevuld in de kolom Domein.

A.Om de e-mailberichten op Filteren op domein van afzender's e-mailadres te sorteren, klikt u gewoon op de kolomkop Domeinbovenaan alle e-mailberichten;

B. Om e-mailberichten te groeperen op basis van het domein van het afzender-e-mailadres, klikt u met de rechtermuisknop op de kolomkop Domein en selecteert u Groeperen op dit veld in het contextmenu. Zie de schermafbeelding hieronder:

Opmerkingen:

(1) Deze VBA-code werkt uitstekend in Outlook 2013 en 2010, maar helaas niet in Outlook 2007.
(2) U kunt de aangepaste weergave eenvoudig opslaan met behulp van Hoe slaat u weergave-instellingen op en kopieert u deze naar andere mappen in Outlook?

Gerelateerd artikel

Hoe bekijkt u het domein van afzenders in de e-maillijst in Outlook?

---

Beste Office-productiviteitstools

Beleef de gloednieuwe Kutools voor Outlook met 100+ ongelooflijke functies!Klik nu om te downloaden!

🤖KUTOOLS AI:Gebruikt geavanceerde AI-technologie om e-mails moeiteloos te verwerken, waaronder beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP), e-mails plannen om te verzenden, automatisch CC/BCC toepassen op basis van regels bij het verzenden van e-mails, automatisch doorsturen (geavanceerde regels), automatisch een begroeting toevoegen en e-mails met meerdere ontvangers automatisch splitsen in afzonderlijke berichten…

📨E-mailbeheer: E-mail terughalen, spam-e-mails blokkeren op basis van onderwerp en andere criteria, dubbele e-mails verwijderen, geavanceerd zoeken en mappen organiseren…

📁Bijlagen Pro: Batch opslaan, batch loskoppelen, batch comprimeren, automatisch opslaan, automatisch loskoppelen en automatisch comprimeren…

🌟Interface-magie: 😊 Nog meer mooie en coole emoji’s / Waarschuwt u bij binnenkomst van belangrijke e-mails / Minimaliseert Outlook in plaats van het programma te sluiten...

👍Eénklikwonderen: Antwoord Allen met Bijlagen / Anti-phishing-e-mails / 🕘Huidige tijd van afzender-zone weergeven...

👩🏼‍🤝‍👩🏻Contacten & agenda: Batch Contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen in afzonderlijke groepen / Verjaardagsherinnering verwijderen…

Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!

Ontgrendel Kutools voor Outlook direct met één klik! Wacht niet langer—download nu en verhoog uw efficiëntie!

Functielijst van Kutools voor Outlook      Nu downloaden      Naar aankoop gaan

🚀 Eénklikdownload — Ontvang alle Office-invoegtoepassingen

Sterk aanbevolen: Kutools for Office (5-in-1)

Eén klik om vijf installatiebestandentegelijk te downloaden —Kutools voor Excel, Outlook, Word, PowerPointen Office Tab Pro.Klik nu om te downloaden!

• ✅Eénkliksgemak: Download alle vijf installatiepakketten in één keer.
• 🚀Klaar voor elke Office-taak: Installeer de invoegtoepassingen die u nodig heeft, precies op het moment dat u ze nodig heeft.
• 🧰Inbegrepen: Kutools voor Excel / Kutools voor Outlook / Kutools voor Word / Office Tab Pro / Kutools for PowerPoint

Over het pakket⬇ Download het pakket💳 Koop het pakket