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

Author Xiaoyang Last modified 2025-08-26

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

classify-emails-by-month/doc-classify-by-month-1

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

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

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

2. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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

classify-emails-by-month/doc-classify-by-month-2

4. Затем нажмите клавишу F5 для выполнения этого кода, и все письма в выбранной папке Входящие будут классифицированы по конкретному месяцу времени получения писем, см. скриншот:

classify-emails-by-month/doc-classify-by-month-1

AI Mail Assistant в Outlook: Умные ответы, четкое общение (волшебство в один клик!) БЕСПЛАТНО

Оптимизируйте свои ежедневные задачи в Outlook с помощью AI Mail Assistant от Kutools для Outlook. Этот мощный инструмент изучает ваши прошлые письма, чтобы предлагать умные и точные ответы, оптимизировать содержание ваших писем и помогать легко создавать и редактировать сообщения.

Эта функция поддерживает:

Умные ответы: Получайте ответы, созданные на основе ваших предыдущих разговоров — персонализированные, точные и готовые к отправке.
Улучшенное содержание: Автоматически улучшайте текст ваших писем для большей ясности и воздействия.
Простое составление: Просто укажите ключевые слова, и пусть ИИ сделает остальную работу, предлагая несколько стилей написания.
Интеллектуальные расширения: Расширяйте свои мысли с помощью контекстно-зависимых предложений.
Суммаризация: Мгновенно получайте краткие обзоры длинных писем.
Глобальный охват: Легко переводите ваши письма на любой язык.

Эта функция поддерживает: