Outlook에서 보낸 회의를 특정 폴더로 자동으로 이동하는 방법은 무엇입니까?

Author: Xiaoyang Last Modified: 2025-08-06

일반적으로 이메일이나 회의를 보내면 둘 다 보낸 편지함에 위치하게 됩니다. 따라서 보낸 편지함이 상당히 복잡하고 번거로워질 수 있습니다. 이 기사에서는 회의가 발송된 후 보낸 회의를 다른 폴더로 자동으로 이동하는 방법을 소개하겠습니다.

VBA 코드를 사용하여 보낸 회의를 특정 폴더로 자동 이동하기

VBA 코드를 사용하여 보낸 회의를 특정 폴더로 자동 이동하기

모든 보낸 회의 요청을 다른 폴더로 자동으로 이동하려면 다음 코드가 도움이 될 것입니다. 아래 단계를 따라주세요:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 Project1(VbaProject.OTM) 패널에서 ThisOutlookSession을 더블 클릭하여 모듈을 열고, 다음 코드를 빈 모듈에 복사하여 붙여넣습니다.

VBA 코드: 보낸 회의를 특정 폴더로 자동 이동하기

Private WithEvents GExplorer As Outlook.Explorer
Public WithEvents GSentFolder As Outlook.Folder
Public WithEvents GSentItems As Outlook.Items
Private Sub Application_Startup()
    Set GExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub GExplorer_SelectionChange()
Dim xFolder As Folder, xRootFolder As Folder
Dim xRootFldName As String
Dim xPos As Integer
    On Error Resume Next
    Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
    xPos = VBA.InStr(3, xFolder.FolderPath, "\")
    If xPos > 0 Then
        xRootFldName = VBA.Mid(xFolder.FolderPath, 3, xPos - 3)
    Else
        xRootFldName = VBA.Mid(xFolder.FolderPath, 3, Len(xFolder.FolderPath) - 2)
    End If
    Set xRootFolder = Outlook.Application.Session.Folders(xRootFldName)
    Set GSentFolder = xRootFolder.Folders("Sent Items")
    Set GSentItems = GSentFolder.Items
End Sub
Private Sub GSentItems_ItemAdd(ByVal Item As Object)
    Dim xMeetingItem As Outlook.MeetingItem
    Dim xTargetFolder As Outlook.Folder
    On Error Resume Next
    If Item.Class <> olMeetingRequest Then Exit Sub
    Set xMeetingItem = Item
    Set xTargetFolder = GSentFolder.Folders("Meetings")
    If xTargetFolder Is Nothing Then
        Set xTargetFolder = GSentFolder.Folders.Add("Meetings")
    End If
    xMeetingItem.Move xTargetFolder
End Sub