Wie sortiert und gruppiert man E-Mails nach Absender-Domänen in Outlook?

Normalerweise können wir in Microsoft Outlook ganz einfach alle E-Mails nach Absender, Kategorien, Betreff, Größe usw. ordnen. Es scheint jedoch unmöglich zu sein, E-Mails nach Absender-Domänen zu sortieren oder zu gruppieren, da es für E-Mails überhaupt kein Feld für die Absender-Domäne gibt. Hier werde ich Ihnen einen VBA-Code vorstellen, der Ihnen hilft, eine Domänen-Spalte für E-Mails hinzuzufügen, damit Sie die E-Mails ganz einfach nach den Absender-Domänen in Outlook sortieren und gruppieren können.

Um E-Mails in Microsoft Outlook 2013 und 2010 nach Absender-Domänen zu sortieren und zu gruppieren, gehen Sie bitte wie folgt vor:

Schritt 1: Öffnen Sie den Ordner mit den E-Mails, in dem Sie alle E-Mails nach Absender-Domänen sortieren möchten.

Schritt 2: Schalten Sie den Lesemodus aus, indem Sie auf der Registerkarte Ansicht auf Lesemodus > Aus klicken.

Schritt 3: Klicken Sie auf der Registerkarte Ansicht auf Spalten hinzufügen.

Schritt 3: Klicken Sie im Dialogfeld Spalten anzeigen auf die Schaltfläche Neue Spalte.

Schritt 4: Geben Sie im Dialogfeld Neue Spalte den Namen „Domäne“ in das Namensfeld ein, und behalten Sie Text sowohl im Typ-Feld als auch im Format-Feld ausgewählt. Klicken Sie abschließend auf die Schaltfläche OK.

Schritt 5: Nun kehren Sie zum Dialogfeld Spalten anzeigen zurück, wählen Sie die Domäne im Feld Zeige diese Spalten in dieser Reihenfolge aus, verschieben Sie sie unter das Element Von, und klicken Sie auf die Schaltfläche OK.

Schritt 6: Jetzt kehren Sie zum geöffneten E-Mail-Ordner zurück, und wählen Sie alle E-Mails aus, indem Sie gleichzeitig die Tasten Strg + A drücken.

Schritt 7: Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen; klicken Sie dann auf Einfügen > Modul, und fügen Sie den folgenden VBA-Code in das Modul ein.

VBA: Sortieren und Gruppieren nach Absender-Domäne

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

Schritt 8: Führen Sie diesen VBA-Code aus, indem Sie die Taste F5 oder die Schaltfläche Ausführen in der Werkzeugleiste drücken.

Schritt 9: Nun wird die Domäne jedes Absenders extrahiert und in die Spalte Domäne eingefügt.

A. Um die E-Mails nach Absender-Domänen zu sortieren, klicken Sie einfach auf die Spaltenüberschrift Domäne oben über allen E-Mails;

B. Um die E-Mails nach Absender-Domänen zu gruppieren, klicken Sie mit der rechten Maustaste auf die Spaltenüberschrift Domäne und wählen Sie Nach diesem Feld gruppieren aus der Dropdown-Liste aus. Siehe Screenshot unten:

Hinweise:

(1) Dieser VBA-Code funktioniert gut in Outlook 2013 und 2010, aber nicht in Outlook 2007.
(2) Sie können die benutzerdefinierte Ansicht ganz einfach speichern mit Wie speichert und kopiert man Ansichtseinstellungen in andere Ordner in Outlook?

Verwandter Artikel

Wie zeigt man die Domäne der Absender in der E-Mail-Liste in Outlook an?

---

Beste Office-Produktivitätstools

Eilmeldung: Kutools für Outlook veröffentlicht kostenlose Version!

Erleben Sie das brandneue Kutools für Outlook mit über100 unglaublichen Funktionen! Jetzt herunterladen!

🤖 Kutools AI : Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu verwalten – inklusive Antworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP)/E-Mail senden planen/Automatische CC/BCC nach Regel beim Senden von E-Mail/Automatische Weiterleitung (Erweiterte Regeln) /Begrüßung automatisch hinzufügen/E-Mails mit mehreren Empfängern automatisch in einzelne E-Mails aufteilen...

📨 E-Mail-Management: E-Mail zurückrufen/Betrugs-E-Mails nach Betreff und anderen Kriterien blockieren/Duplikate löschen/Erweiterte Suche/Ordner organisieren...

📁 Anhänge Pro:Stapel speichern/Stapel ablösen/Stapel komprimieren/Automatisch speichern/Automatisch abtrennen/Automatische Komprimierung...

🌟 Interface-Magie: 😊Mehr schöne und coole Emojis /Benachrichtigung bei wichtigen E-Mails/Outlook minimieren statt schließen...

👍 Ein-Klick-Genies: Allen mit Anhängen antworten /Anti-Phishing-E-Mails/🕘Zeitzone des Absenders anzeigen...

👩🏼‍🤝‍👩🏻 Kontakte & Kalender: Stapel Kontakt aus ausgewählten E-Mails hinzufügen/Kontaktgruppe in einzelne Gruppen aufteilen/Geburtstagserinnerung entfernen...

Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!

Schalten Sie Kutools für Outlook sofort mit einem einzigen Klick frei. Nicht zögern, jetzt herunterladen und Ihre Effizienz steigern!

Funktionsliste von Kutools für OutlookJetzt herunterladenGehe zu Kaufen

🚀 Ein-Klick-Download — alle Office-Add-Ins verfügbar

Dringend empfohlen: Kutools für Office (5-in-1)

Mit einem Klick laden Sie fünf Installationsprogramme gleichzeitig herunter — Kutools für Excel, Outlook, Word, PowerPoint und Office Tab Pro. Jetzt herunterladen!

• ✅ Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete in nur einem Schritt herunter.
• 🚀 Für jede Office-Aufgabe bereit: Installieren Sie die benötigten Add-Ins genau dann, wenn Sie sie brauchen.
• 🧰 Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools für PowerPoint

Über die Suite ⬇ Suite herunterladen 💳 Suite kaufen