Как классифицировать письма по месяцам в Outlook?

Если в вашем Входящем ящике много писем, чтобы почтовый ящик выглядел аккуратно и был хорошо организован, вы можете сохранять или архивировать их в разные папки в зависимости от конкретного месяца Время получения, как показано на снимке экрана ниже. Обычно вы можете создавать папки вручную, а затем перемещать письма по одному. Очевидно, что такой подход займёт много времени и будет неудобным. В этой статье я расскажу о коде VBA, который быстро и легко решает эту задачу.

---

Классификация писем по месяцам с помощью кода VBA

Чтобы переместить письма в разные папки по месяцам, воспользуйтесь приведённым ниже кодом VBA:

1. Щёлкните, чтобы выбрать папку Входящие, письма в которой требуется классифицировать.

2. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.

3. Нажмите Вставка > Модуль и вставьте следующий код в окно модуля.

Код 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, чтобы выполнить этот код, и все письма в выбранной папке «Входящие» будут автоматически отсортированы по месяцу получения. См. снимок экрана: