Ga naar hoofdinhoud

Hoe e-mails per maand groeperen en sorteren in Outlook?

E-mails worden standaard gesorteerd op ontvangstdatum in het Postvak IN van Outlook. Er is echter geen opdracht om alle e-mails op ontvangen maand te sorteren of te groeperen. Hier zal ik een manier introduceren om alle e-mails per maand in Outlook te groeperen en te sorteren.

Groepeer of sorteer e-mails per maand in Outlook met behulp van VBA-code

Groepeer of sorteer e-mails per maand in Outlook met behulp van VBA-code

Deze methode helpt u om een ​​nieuwe kolom met de naam Maand te maken, vervolgens een VBA-macro toe te passen om de ontvangen maand uit te pakken in de nieuwe kolom, en vervolgens kunt u alle e-mails sorteren of groeperen op de kolom Maand in Outlook.

1.  Open een e-mailmap waarin u e-mails op maand wilt sorteren of groeperen, en klik op het Bekijk instellingen knop op de Bekijk tabblad in Outlook 2010 en latere versie.

doc e-mails sorteren op maand 1

Opmerking: In Outlook 2007 kunt u op het Bekijk > Huidige weergave > Pas de huidige weergave aan.

2. In de komende Geavanceerde weergave-instellingen / weergave aanpassen dialoogvenster, klik op de columns knop (of Velden knop).

doc e-mails sorteren op maand 2

3. In de Kolom / velden weergeven dialoogvenster, klik op de Nieuwe kolom knop (of Nieuw veld -knop) om het dialoogvenster Nieuwe kolom / veld te openen, typ Maand in de Naam box, houden Tekst geselecteerd in beide Type doos en Formaat vak en klik vervolgens op het OK knop. Zie screenshot hieronder:

doc e-mails sorteren op maand 3

4.  Nu ga je terug naar de Kolommen / velden weergeven dialoogvenster, klik om het Maand item in het Laat deze kolommen zien (of Velden) in deze volgorde box en verplaats deze onder het Ontvangen door op te klikken omhoog knop, en klik ten slotte op de OK knop.

doc e-mails sorteren op maand 4

5. Klik op de OK om het te sluiten Geavanceerde weergave-instellingen / weergave aanpassen dialoog venster.

6. Selecteer alle e-mails in de openingsmap door een e-mail te selecteren en vervolgens op te drukken Ctrl + A toetsen tegelijk.

Note: Als de Leesvenster wordt ingeschakeld, sluit deze dan door op de te klikken Bekijk > Leesvenster > af.

7. Open de Microsoft Visual Basic voor toepassingen venster door op de te drukken anders + F11 toetsen in en klik vervolgens op de Invoegen > Module.

8. Plak de volgende VBA-macro in de module:

VBA: sorteer of groepeer e-mails per maand

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. druk de F5 sleutel om deze VBA-macro uit te voeren.

10. Nu wordt de ontvangen maand van elke e-mail in het volgende geëxtraheerd Maand kolom. Om alle e-mails in deze openingsmap op maand te sorteren, klikt u op de kolomkop van Maand. Zie screenshot:

doc e-mails sorteren op maand 5

Note: Om alle e-mails in deze openingsmap op maand te groeperen, klikt u met de rechtermuisknop op de kolomkop van Maanden selecteer vervolgens de Groeperen op dit veld vanuit het rechtsklikmenu. Zie screenshot:

doc e-mails sorteren op maand 6

Beste Office-productiviteitstools

Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven

🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...

???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP)  /  Plan het verzenden van e-mails  /  Automatische CC/BCC volgens regels bij het verzenden van e-mail  /  Automatisch doorsturen (geavanceerde regels)   /  Begroeting automatisch toevoegen   /  Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...

📨 email management: Gemakkelijk e-mails herinneren  /  Blokkeer zwendel-e-mails van onderwerpen en anderen  /  Verwijder dubbele e-mails  /  Uitgebreid Zoeken  /  Consolideer mappen ...

📁 Bijlagen Pro: Batch opslaan  /  Batch losmaken  /  Batchcompressie  /  Automatisch opslaan   /  Automatisch loskoppelen  /  Automatisch comprimeren ...

???? Interface-magie: 😊Meer mooie en coole emoji's   /  Verhoog uw Outlook-productiviteit met weergaven met tabbladen  /  Minimaliseer Outlook in plaats van te sluiten ...

???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen  /   Antiphishing-e-mails  /  🕘Toon de tijdzone van de afzender ...

👩🏼‍🤝‍👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails  /  Splits een contactgroep in individuele groepen  /  Verwijder verjaardagsherinneringen ...

Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.

 

 

Comments (14)
No ratings yet. Be the first to rate!
moon
moon
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.
Reply
Report
0
0
Armin
Armin
This comment was minimized by the moderator on the site
Strange.
Made a restart. Now it works.Sorry for bothering.
Thx again :) <3
Reply
0
0
Armin
Armin
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)
Reply
0
0
Armin
Armin
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
Reply
0
0
invisalign@gmail.com
This comment was minimized by the moderator on the site
This will also help.
Reply
Report
0
0
Nikolay
Nikolay
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.
Reply
0
0
hanzo
hanzo
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 ?
Reply
0
0
Bhushit Joshipura
Bhushit Joshipura
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?
Reply
0
0
Bhushit Joshipura
Bhushit Joshipura
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?
Reply
0
0
Carine
Carine     Bhushit Joshipura
This comment was minimized by the moderator on the site
I want this too
Reply
0
0
Oliver Stoltze
Oliver Stoltze
This comment was minimized by the moderator on the site
Is it possible to create VBA macro to group and sort emails by week?
Reply
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations