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: