Direkt zum Inhalt

Wie gruppiere und sortiere ich E-Mails in Outlook nach Monat?

E-Mails werden standardmäßig nach dem Empfangsdatum im Posteingang von Outlook sortiert. Es gibt jedoch keinen Befehl zum Sortieren oder Gruppieren aller E-Mails nach dem empfangenen Monat. Hier werde ich eine Möglichkeit vorstellen, alle E-Mails in Outlook nach Monat zu gruppieren und zu sortieren.

Gruppieren oder sortieren Sie E-Mails in Outlook nach Monat mithilfe von VBA-Code


Gruppieren oder sortieren Sie E-Mails in Outlook nach Monat mithilfe von VBA-Code

Mit dieser Methode können Sie eine neue Spalte mit dem Namen "Monat" erstellen, als Nächstes ein VBA-Makro anwenden, um den empfangenen Monat in die neue Spalte zu extrahieren. Anschließend können Sie alle E-Mails in Outlook nach der Spalte "Monat" sortieren oder gruppieren.

1.  Öffnen Sie einen E-Mail-Ordner, in dem Sie E-Mails nach Monat sortieren oder gruppieren, und klicken Sie auf Einstellungen anzeigen Taste auf der Anzeigen Registerkarte in Outlook 2010 und höher.

doc sortiert E-Mails nach Monat 1

Hinweis: In Outlook 2007 können Sie auf klicken Anzeigen > Aktuelle Ansicht > Passen Sie die aktuelle Ansicht an.

2. Im Kommen Erweiterte Ansichtseinstellungen / Ansicht anpassen Klicken Sie im Dialogfeld auf die Schaltfläche Spalten Taste (oder Felder Taste).

doc sortiert E-Mails nach Monat 2

3. In dem Spalte / Felder anzeigen Klicken Sie im Dialogfeld auf die Schaltfläche New Column Taste (oder Neues Feld Schaltfläche), um das Dialogfeld Neue Spalte / Feld zu öffnen, geben Sie ein Monat der Name Box, behalten Text in beiden ausgewählt Art Box und Format Feld, und klicken Sie dann auf OK Taste. Siehe Screenshot unten:

doc sortiert E-Mails nach Monat 3

4.  Jetzt kommst du zurück zum Spalten / Felder anzeigen Klicken Sie im Dialogfeld auf, um das auszuwählen Monat Artikel in der Zeigen Sie diese Spalten an (oder Felder) in dieser Reihenfolge Box, und bewegen Sie es unter die Empfangene durch Klicken auf aufrücken Klicken Sie auf die Schaltfläche und klicken Sie schließlich auf OK .

doc sortiert E-Mails nach Monat 4

5. Drücke den OK Taste zum Schließen der Erweiterte Ansichtseinstellungen / Ansicht anpassen Dialogbox.

6. Wählen Sie alle E-Mails im Eröffnungsordner aus, indem Sie eine beliebige E-Mail auswählen und dann die Taste drücken Ctrl + A Schlüssel gleichzeitig.

Note: Wenn die Lesefenster wird eingeschaltet, schließen Sie es bitte mit einem Klick auf Anzeigen > Lesefenster > Off.

7. Öffne das Microsoft Visual Basic für Applikationen Fenster mit Drücken der Andere + F11 Geben Sie in der Zwischenzeit ein und klicken Sie dann auf Insert > Modul.

8. Fügen Sie das folgende VBA-Makro in das Modul ein:

VBA: E-Mails nach Monat sortieren oder gruppieren

Sub ListSelectionMonth()
	Dim aObj As Object
	Dim oProp As Outlook.UserProperty
	Dim sMonth
	
	On Error Resume Next
	
	For Each aObj In Application.ActiveExplorer.Selection
		Set oMail = aObj
		
		sMonth = Month(oMail.ReceivedTime)
		Set oProp = oMail.UserProperties.Add("Month", olText, True)
		oProp.Value = sMonth
		oMail.Save
		
		Err.Clear
	Next
	
End Sub

9. Drücken Sie die F5 Schlüssel zum Ausführen dieses VBA-Makros.

10. Jetzt wird der empfangene Monat jeder E-Mail in den folgenden extrahiert Monat Säule. Um alle E-Mails in diesem Eröffnungsordner nach Monat zu sortieren, klicken Sie einfach auf die Spaltenüberschrift von Monat. Siehe Screenshot:

doc sortiert E-Mails nach Monat 5

Note: Um alle E-Mails nach Monat in diesem Eröffnungsordner zu gruppieren, klicken Sie mit der rechten Maustaste auf die Spaltenüberschrift von Monatund wählen Sie dann die Option Nach diesem Feld gruppieren aus dem Kontextmenü. Siehe Screenshot:

doc sortiert E-Mails nach Monat 6


Beste Office-Produktivitätstools

Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks

🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...

📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP)  /  Planen Sie das Senden von E-Mails  /  Automatisches CC/BCC nach Regeln beim E-Mail-Versand  /  Automatische Weiterleitung (erweiterte Regeln)   /  Begrüßung automatisch hinzufügen   /  Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...

📨 E-Mail-Management: E-Mails einfach abrufen  /  Blockieren Sie betrügerische E-Mails nach Betreff und anderen  /  Doppelte E-Mails löschen  /  Erweiterte Suche  /  Ordner konsolidieren ...

📁 Anhänge ProBatch speichern  /  Stapeltrennung  /  Stapelkomprimierung  /  Automatisches Speichern   /  Automatische Trennung  /  Automatische Komprimierung ...

???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis   /  Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten  /  Ausblick minimieren statt schließen ...

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

👩🏼‍🤝‍👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu  /  Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf  /  Geburtstagserinnerungen entfernen ...

Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.

 

 

Comments (14)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have Outlook 2007 and have try that VBA. First I did have the problem that only 1 E-Mail of all get the month show.
I needed to mark all E-Mails first and then push in VBA F5 to show in all E-Mails the month.

a bad part of that code is that all month (1, 2, 3, 4, 5, 6, 7, 8, 9) get grouped on the wrong position in front of 10, 11, 12
is there any additional VBA sequence what add to the first 9 Month a 0? ergo 01, 02, 03 etc?

as I have several years in some folders it make sense to group those E-Mails first by year and after that by Month.
This comment was minimized by the moderator on the site
Strange.
Made a restart. Now it works.Sorry for bothering.
Thx again :) <3
This comment was minimized by the moderator on the site
Sorry. Didn't saw that the page is origin in english. #emabarrased
Google translate is getting better. :D
Hello from Hamburg,
great stuff. Thanks for this. :)
Only a small problem.
I had first adapted the code so that it puts the year and month together for me.

Sub ListSelectionYearMonth()
Dim aObj As Object
Dim oProp As Outlook.UserProperty
Dim oMail As Object
Dim sMonth
Dim sYear
Dim sYearMonth

On Error Resume Next

For Each aObj In Application.ActiveExplorer.Selection
Set oMail = aObj

sMonth = Month(oMail.ReceivedTime)
sYear = Year(oMail.ReceivedTime)

If sMonth < 10 Then
sMonth = 0 & sMonth
Else
sMonth = sMonth
End If

sYearMonth = sYear & "/" & sMonth
Set oProp = oMail.UserProperties.Add("YearMonth", olText, True)
oProp.Value = sYearMonth
oMail.Save

Err.Clear
Next

End Sub

This worked wonderfully.
Now I noticed in a folder that a grouping first by year and then by month increases the clarity.
I used the original code.
However, the column there remains empty.

Sub ListSelectionMonth()
Dim aObj As Object
Dim oProp As Outlook.UserProperty
Dim oMail As Object
Dim sMonth

On Error Resume Next

For Each aObj In Application.ActiveExplorer.Selection
Set oMail = aObj

sMonth = Month(oMail.ReceivedTime)

If sMonth < 10 Then
sMonth = 0 & sMonth
Else
sMonth = sMonth
End If

Set oProp = oMail.UserProperties.Add("Month", olText, True)
oProp.Value = sMonth
oMail.Save

Err.Clear
Next

End Sub

I'm a bit perplexed at the moment.

Glad about any advice

VG
Armin


Translated with http://www.DeepL.com/Translator (free version)
This comment was minimized by the moderator on the site
Hallo aus Hamburg,super Sache. Danke dafür. :)Kleines Problem nur.Ich hatte zuerst den Code so angepasst das er mir Jahr und Monat zusammensetzt.
Sub ListSelectionYearMonth()
Dim aObj As Object
Dim oProp As Outlook.UserProperty
Dim oMail As Object
Dim sMonth
Dim sYear
Dim sYearMonth

On Error Resume Next

For Each aObj In Application.ActiveExplorer.Selection
Set oMail = aObj

sMonth = Month(oMail.ReceivedTime)
sYear = Year(oMail.ReceivedTime)

If sMonth < 10 Then
sMonth = 0 & sMonth
Else
sMonth = sMonth
End If

sYearMonth = sYear & "/" & sMonth
Set oProp = oMail.UserProperties.Add("JahrMonat", olText, True)
oProp.Value = sYearMonth
oMail.Save

Err.Clear
Next

End Sub

Hat wunderbar geklappt.Nun ist mir in einem Ordner aufgefallen das eine Gruppierung zuersnach Jahr und dann nach Monat die Übersichtlichkeit noch erhöht.Habe als den ursprünglichen Code genommen.Dort bleibt dann allerdings die Spalte leer.
Sub ListSelectionMonth()
Dim aObj As Object
Dim oProp As Outlook.UserProperty
Dim oMail As Object
Dim sMonth

On Error Resume Next

For Each aObj In Application.ActiveExplorer.Selection
Set oMail = aObj

sMonth = Month(oMail.ReceivedTime)

If sMonth < 10 Then
sMonth = 0 & sMonth
Else
sMonth = sMonth
End If

Set oProp = oMail.UserProperties.Add("Monat", olText, True)
oProp.Value = sMonth
oMail.Save

Err.Clear
Next

End Sub

Macht mich grad etwas ratlos.
Freue mich über jeden Rat
VGArmin
This comment was minimized by the moderator on the site
This will also help.
This comment was minimized by the moderator on the site
The code works as in the article. But it does not apply to new letters. Every time you need to go to the created module in the Visual Basik and press F5.
This comment was minimized by the moderator on the site
I used the above vba and let me begin by saying this does help in micro management which is not available by default. this is beneficial for archival and storage and not something supposed to work automatically for incoming email. I was able to modify this a bit and also add a year column. So for all emails I was able to get a month and year so that I can group and then regroup (by year and then by month). What I did find however is there is some kind of limitation to the number of items it goes through and then exists (not sure why). For example if I were to select a folder with 18k-19k emails, it will loop only through some and then at the end of the run it will not update all the emails with the required. However if you run in smaller batches then it runs perfectly fine. The painful part here is to keep on selecting in batches. This is a pain for people like me who wish to manage or rather arrange years or emails that runs in a 6 figures in numbers. Anyone here been able to figure this out out or willing to go on a troubleshooting spree to fix this or how this can be addressed ?
This comment was minimized by the moderator on the site
That is, I want to group mails by subject and put the group with maximum mails on the top. How can I do that?
This comment was minimized by the moderator on the site
I want to :

1. Group mails by subject

2. Sort them by number of e-mails inside the group

How can I do achieve this?
This comment was minimized by the moderator on the site
I want this too
This comment was minimized by the moderator on the site
Is it possible to create VBA macro to group and sort emails by week?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations