Sut i ddosbarthu'r e-byst fesul mis yn Outlook?

Os oes llawer o negeseuon e-bost yn eich Blwch Derbyn, i wneud i'r blwch post edrych yn daclus ac yn drefnus, gallwch eu storio neu eu harchifo i ffolderi gwahanol yn seiliedig ar y mis penodol o amser derbyn y negeseuon e-bost fel y dangosir y sgrinlun isod. Fel arfer, gallwch greu'r ffolderi â llaw ac yna eu symud fesul un. Yn amlwg, bydd y dull hwn yn cymryd llawer o amser ac yn drafferthus. Yn yr erthygl hon, byddaf yn siarad am god VBA ar gyfer datrys y dasg hon yn gyflym ac yn hawdd.

Dosbarthwch yr e-byst yn seiliedig ar fis gyda chod VBA

I symud yr e-byst i wahanol ffolderi yn seiliedig ar fis, cymhwyswch y cod VBA isod:

1. Cliciwch i ddewis y Mewnflwch ffolder rydych chi am ddosbarthu'r e-byst.

2. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Dosbarthwch yr e-byst yn seiliedig ar fis

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. Yna, pwyswch F5 allwedd i weithredu'r cod hwn, ac mae'r holl negeseuon e-bost yn y ffolder Mewnflwch a ddewiswyd yn cael eu dosbarthu yn ôl mis penodol o amser derbyn yr e-byst, gweler y sgrinlun: