Outlook에서 전자 메일을 전달한 후 전자 메일을 특정 폴더로 자동 이동하는 방법

Outlook 솔루션 2025 년 9 월 29 일

사서함을 순서대로 유지하기 위해 특정 폴더에 특정 이메일을 저장하는 데 익숙해질 수 있습니다. 이 기사에서는 Outlook VBA를 사용하여 이메일을 전달한 후 자동으로 이동하는 방법을 설명합니다.

특정 메일 폴더에 유사한 이메일을 저장하는 것은 많은 양의 이메일을 관리하는 좋은 팁입니다. 사용자마다 메일 분류 및 관리에 대한 고유한 기준이 있어야 합니다. 예를 들어 회신, 전달 또는 기타와 같은 후속 조치에 따라 이메일을 분류하는 것을 선호할 수 있습니다. 전자 메일을 전달할 때 "전달됨"과 같은 특정 폴더로 자동 이동하려면 다음 작업과 VBA 코드를 적용하여 빠른 시간에 가져올 수 있습니다.

이메일을 전달한 후 특정 폴더로 이메일 자동 이동

먼저 Outlook을 시작하십시오.
그런 다음 "개발자" 탭으로 전환합니다.

참고 : 이 탭을 찾을 수 없는 경우 "파일" > "옵션" > "리본 사용자 지정"으로 이동하여 먼저 활성화해야 합니다.

이 탭이 보이면 그 아래에 있는 “Visual Basic” 버튼을 찾아 클릭할 수 있습니다.
그러면 새로운 "응용 프로그램용 Microsoft Visual Basic" 창이 나타납니다. 여기에서 왼쪽에 있는 "ThisOutlookSession" 프로젝트를 두 번 클릭하여 엽니다.
그런 다음 다음 VBA 코드를 복사하여 붙여넣을 수 있습니다.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objMail_Forward(ByVal Response As Object, Cancel As Boolean)
    Dim objInboxFolder As Folder
    Dim objTargetFolder As Folder
 
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    On Error Resume Next
    Set objTargetFolder = objInboxFolder.parent.Folders("Forwarded")
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = objInboxFolder.parent.Folders.Add("Forwarded")
    End If
    objMail.Categories = "Forwarded"
    objMail.Move objTargetFolder
End Sub