Outlook 에서 회의 초대장을 특정 사람에게 자동 전달하는 방법은 무엇입니까？

Outlook 에서는 수동으로 전달 기능을 사용하여 회의 초대장을 직접 특정 사람에게 전달할 수 있습니다。 그러나 때로는 회의를 수락할 때 해당 회의 초대장을 특정 사람에게 자동으로 전달해야 할 수도 있습니다。 이 문서에서는 가능한 한 빠르게 회의 초대장을 특정 사람에게 자동 전달하는 방법에 대해 설명합니다。

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

---

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

다음은 회의를 수락한 후 회의 초대장을 특정 사람에게 자동 전달하는 데 도움이 되는 유용한 VBA 코드입니다。 아래 단계를 따라 주세요：

1.ALT + F11키를 누른 채로Microsoft Visual Basic for Applications창을 엽니다。

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

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

참고： 위 코드에서 수신자 주소를 본인의 주소로 변경해야 합니다。

3. 그런 다음 코드를 저장하고 Outlook 을 다시 시작하여 코드가 적용되도록 합니다。

4。 이제 회의 초대장을 받으면 해당 회의가 자동으로 수락되고 동시에 이 회의가 즉시 특정 사람에게 자동 전달됩니다。

참고： 이 코드는 기본 계정에서만 사용할 수 있습니다。