Skip to main content

Conas ríomhphoist a ghrúpáil agus a shórtáil de réir míosa in Outlook?

Déantar ríomhphoist a shórtáil de réir an dáta a fhaightear iad sa Bhosca Isteach de Outlook de réir réamhshocraithe. Mar sin féin, níl aon ordú gach ríomhphost a shórtáil nó a ghrúpáil faoin mí a fhaightear. Tabharfaidh mé isteach anseo bealach chun gach ríomhphost a ghrúpáil agus a shórtáil de réir míosa in Outlook.

Ríomhphost a ghrúpáil nó a shórtáil de réir míosa in Outlook trí chód VBA a úsáid


Ríomhphost a ghrúpáil nó a shórtáil de réir míosa in Outlook trí chód VBA a úsáid

Tabharfaidh an modh seo treoir duit colún nua darb ainm Mí a chruthú, macra VBA a chur i bhfeidhm ina dhiaidh sin chun an mhí a fuarthas a bhaint sa cholún nua, agus ansin is féidir leat gach ríomhphost a shórtáil nó a ghrúpáil de réir cholún na Míosa in Outlook.

1.  Oscail fillteán ríomhphoist ina ndéanfaidh tú ríomhphoist a shórtáil nó a ghrúpáil de réir míosa, agus cliceáil ar an Féach ar na Socruithe cnaipe ar an Amharc cluaisín in Outlook 2010 agus leagan níos déanaí.

ríomhphoist a shórtáil faoi mhí 1

Nóta: In Outlook 2007, is féidir leat cliceáil ar an Amharc > Amharc Reatha > Saincheap an dearcadh reatha.

2. Sa teacht Ardsocruithe Socraigh / Saincheap Amharc bosca dialóige, cliceáil an Colúin cnaipe (nó Réimsí cnaipe).

ríomhphoist a shórtáil faoi mhí 2

3. Sa Taispeáin Colún / Réimsí bosca dialóige, cliceáil an Colún Nua cnaipe (nó Réimse Nua cnaipe) chun bosca dialóige Colún Nua / Réimse a oscailt, cineál sa Ainm bosca, coinnigh Téacs roghnaithe sa dá cheann cineál bosca agus déanta bosca, agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr thíos:

ríomhphoist a shórtáil faoi mhí 3

4.  Anois gheobhaidh tú ar ais chuig an Taispeáin Colúin / Réimsí bosca dialóige, cliceáil chun an mír sa Taispeáin na colúin seo (nó Réimsí) san ord seo bosca, agus bog faoi bhun an A Fuarthas trí chliceáil ar an Bog Suas cnaipe, agus faoi dheireadh cliceáil ar an OK cnaipe.

ríomhphoist a shórtáil faoi mhí 4

5. Cliceáil ar an OK cnaipe chun an Ardsocruithe Socraigh / Saincheap Amharc dialóg.

6. Roghnaigh gach ríomhphost san fhillteán tosaigh le haon ríomhphost a roghnú agus ansin brúigh an Ctrl + A eochracha ag an am céanna.

nótaí: Má tá an Pána Léitheoireachta ag casadh air, dún é le do thoil trí chliceáil ar an Amharc > Pána Léitheoireachta > Lasmuigh.

7. Oscail an Microsoft Visual Basic d’Fheidhmchláir fuinneog le brú an Eile + F11 eochracha idir an dá linn, agus ansin cliceáil ar an Ionsáigh > Modúil.

8. Greamaigh an macra VBA seo a leanas sa mhodúl:

VBA: Sórtáil nó ríomhphoist ríomhphoist de réir míosa

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. Brúigh an F5 eochair chun an macra VBA seo a rith.

10. Anois baintear gach mí a fhaightear gach ríomhphost isteach sa mhéid seo a leanas colún. Chun gach ríomhphost a shórtáil de réir míosa san fhillteán oscailte seo, ní gá ach cliceáil ar cheanntásc an cholúin . Féach an pictiúr:

ríomhphoist a shórtáil faoi mhí 5

nótaí: Chun gach ríomhphost a ghrúpáil de réir míosa san fhillteán oscailte seo, cliceáil ar dheis ar cheanntásc an cholúin , agus ansin roghnaigh an Grúpa De réir an Réimse Seo ón roghchlár cliceáil ar dheis. Féach an pictiúr:

ríomhphoist a shórtáil faoi mhí 6


Uirlisí Táirgiúlachta Oifige is Fearr

Kutools le haghaidh Outlook - Níos mó ná 100 Gnéithe cumhachtacha chun do Outlook a shárú

🤖 Cúntóir Ríomhphoist AI: Ríomhphoist pro toirt le draíocht AI - aon-cliceáil chun freagraí genius, ton foirfe, máistreacht ilteangach. Trasfhoirmigh ríomhphost gan stró! ...

📧 Uathoibriú Ríomhphoist: As Oifig (Ar fáil do POP agus IMAP)  /  Sceideal Seol Ríomhphoist  /  Auto CC/BCC de réir Rialacha Agus Ríomhphost á Sheoladh  /  Auto Ar Aghaidh (Ardrialacha)   /  Beannacht Auto Cuir leis   /  Scoilt Ríomhphoist Ilfhaighteoirí go huathoibríoch i dTeachtaireachtaí Aonair ...

📨 Bainistíocht Ríomhphost: Ríomhphoist a Athghairm go héasca  /  Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile  /  Scrios Ríomhphoist Dúblacha  /  Cuardach Casta  /  Comhdhlúthaigh Fillteáin ...

📁 Ceangaltáin ProSábháil Baisc  /  Baisc Dícheangail  /  Comhbhrú Baisc  /  Auto Sábháil   /  Auto Dícheangail  /  Comhbhrúite Auto ...

🌟 Draíocht Chomhéadain: 😊Níos mó Emojis Pretty and Cool   /  Treisiú Do Tháirgiúlacht Outlook le Radhairc Tabbed  /  Íoslaghdaigh Outlook In ionad Deiridh ...

???? Wonders aon-cliceáil: Freagair Gach Duine le Ceangaltáin Isteach  /   Ríomhphoist Frith-Iascaireachta  /  🕘 Taispeáin Crios Ama an tSeoltóra ...

👩🏼‍🤝‍👩🏻 Teagmhálaithe & Féilire: Baisc Cuir Teagmhálacha Ó Ríomhphoist Roghnaithe  /  Roinn Grúpa Teagmhála ar Ghrúpaí Aonair  /  Bain Meabhrúcháin Breithlá ...

Thar Gnéithe 100 Fan le do Thaiscéalaíocht! Cliceáil Anseo le Tuilleadh Amach.

 

 

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