Outlook에서 특정 사람에게 회의 초대를 자동으로 전달하는 방법은 무엇입니까?

Author: Xiaoyang Last Modified: 2025-08-06

Outlook에서는 수동으로 전달 기능을 사용하여 특정 사람에게 회의 초대를 직접 전달할 수 있습니다. 하지만 때로는 회의를 수락할 때 특정 사람에게 회의 초대를 자동으로 전달해야 할 수도 있습니다. 이 문서에서는 가능한 한 빨리 특정 사람에게 회의 초대를 자동으로 전달하는 방법에 대해 설명하겠습니다.

VBA 코드를 사용하여 Outlook에서 특정 사람에게 회의 초대를 자동으로 전달하기

VBA 코드를 사용하여 Outlook에서 특정 사람에게 회의 초대를 자동으로 전달하기

다음은 유용한 VBA 코드로, 이를 사용하면 회의 초대를 수락한 후 특정 사람에게 자동으로 전달할 수 있습니다. 아래 단계를 따라 진행하세요:

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

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

VBA 코드: 특정 사람에게 회의 초대를 자동으로 전달하기:

Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
    Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As MeetingItem
Dim xMeetingResponse As MeetingItem
Dim xForwardMeeting As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
    Set xMeetingItem = Item
    Set xAppointmentItem = xMeetingItem.GetAssociatedAppointment(True)
    Set xMeetingResponse = xAppointmentItem.Respond(olMeetingAccepted, True)
    xMeetingResponse.Send
    Set xForwardMeeting = xMeetingItem.Forward
    With xForwardMeeting
        With .Recipients
            .Add "skyyang@addin88.com" 'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End If
End Sub

참고: 위의 코드에서 받는 사람 주소를 자신의 것으로 변경해야 합니다.