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