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

Автор: Xiaoyang Последна промяна: 2022-10-19

Ако има много имейли във вашата входяща кутия, за да изглежда пощенската кутия спретната и добре организирана, можете да ги съхранявате или архивирате в различни папки въз основа на конкретния месец от времето на получаване на имейлите, както е показано на екранната снимка по-долу. Обикновено можете да създадете папките ръчно и след това да ги преместите една по една. Очевидно този подход ще отнеме много време и ще бъде проблемен. В тази статия ще говоря за 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 ключ за изпълнение на този код и всички имейли в избраната папка "Входящи" се класифицират по конкретен месец от времето на получаване на имейлите, вижте екранната снимка: