Як класифікувати електронні листи за місяцями в Outlook?

Якщо у вашій папці «Вхідні» багато електронних листів, щоб поштова скринька виглядала акуратно та добре впорядковано, ви можете зберігати або архівувати їх у різних папках залежно від конкретного місяця отримання електронних листів, як показано на знімку екрана нижче. Зазвичай ви можете створювати папки вручну, а потім переміщувати їх одну за одною. Очевидно, що такий підхід буде трудомістким і трудомістким. У цій статті я розповім про код VBA для швидкого та легкого вирішення цього завдання.

Класифікуйте електронні листи на основі місяця за допомогою коду VBA

Щоб перемістити електронні листи в різні папки на основі місяця, застосуйте наведений нижче код VBA:

1. Натисніть, щоб вибрати Вхідні папку, у яку потрібно класифікувати електронні листи.

2. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

3. клацання Insert > Модуліта вставте наступний код у вікно модуля.

Код VBA: класифікуйте електронні листи за місяцями

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. Потім натисніть F5 щоб виконати цей код, і всі електронні листи у вибраній папці "Вхідні" класифікуються за певним місяцем часу отримання електронних листів, див. знімок екрана: