Conas na ríomhphoist a rangú de réir míosa in Outlook?
Má tá go leor ríomhphoist i do Bhosca Isteach, le go mbeidh cuma néata agus dea-eagraithe ar an mbosca poist, is féidir leat iad a stóráil nó a chur i gcartlann i bhfillteáin éagsúla bunaithe ar mhí shonrach ama faighte na ríomhphoist mar a thaispeántar thíos. De ghnáth, is féidir leat na fillteáin a chruthú de láimh agus ansin iad a bhogadh ceann ar cheann. Ar ndóigh, beidh an cur chuige seo am-íditheach agus trioblóideach. San Airteagal seo, labhróidh mé faoi chód VBA chun an tasc seo a réiteach go tapa agus go héasca.
Rangaigh na ríomhphoist bunaithe ar mhí le cód VBA
Chun na ríomhphoist a aistriú chuig fillteáin éagsúla bunaithe ar mhí, cuir an cód VBA thíos i bhfeidhm le do thoil:
1. Cliceáil chun an R-phost Isteach fillteán ar mhaith leat na ríomhphoist a rangú.
2. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
3. cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas i bhFuinneog an Mhodúil.
Cód VBA: Rangaigh na ríomhphoist bunaithe ar mhí
Sub ClassifyEmailsbyMonth()
'Updateby ExtendOffice
Dim xCurFolder As Folder
Dim xMoveFolder As Folder
Dim xMail As MailItem
Dim I As Long
Dim xYear As String, xMonth As String
On Error Resume Next
Set xCurFolder = Application.ActiveExplorer.CurrentFolder
For I = xCurFolder.Items.Count To 1 Step -1
DoEvents
If xCurFolder.Items.Item(I).Class = olMail Then
Set xMail = xCurFolder.Items.Item(I)
xYear = Year(xMail.ReceivedTime)
xMonth = Month(xMail.ReceivedTime)
Set xMoveFolder = Nothing
Set xMoveFolder = xCurFolder.Folders(xYear & "." & xMonth)
If xMoveFolder Is Nothing Then
Set xMoveFolder = xCurFolder.Folders.Add(xYear & "." & xMonth)
End If
xMail.Move xMoveFolder
End If
Next
Set xMoveFolder = Nothing
Set xCurFolder = Nothing
End Sub
4. Ansin, brúigh F5 eochair chun an cód seo a rith, agus déantar na ríomhphoist go léir san fhillteán Bosca Isteach roghnaithe a rangú de réir míosa ar leith d'am faighte na ríomhphoist, féach an scáileán scáileáin:
Uirlisí Táirgiúlachta Oifige is Fearr
Breaking News: Kutools le haghaidh Outlook Seolann Leagan saor in aisce!
Taithí a dhéanamh ar an Kutools uile-nua le haghaidh Outlook Leagan SAOR IN AISCE le 70+ gnéithe dochreidte, is féidir leatsa a úsáid go deo! Cliceáil le híoslódáil anois!
📧 Uathoibriú Ríomhphoist: Auto Reply (Ar fáil le haghaidh 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 / Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile / Scrios Ríomhphoist Dúblacha / Cuardach Casta / Comhdhlúthaigh Fillteáin ...
📁 Ceangaltáin Pro: Sá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 / Cuir i gcuimhne duit nuair a thagann ríomhphoist thábhachtacha / Í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á ...
