아웃룩: 주최자로서 캘린더에서 회의 취소를 유지하는 방법은 무엇입니까?

Author: Sun Last Modified: 2025-08-06

아웃룩에서 회의 주최자로서, 회의를 취소하면 해당 회의는 자동으로 캘린더에서 삭제됩니다. 그러나 때로는 취소된 회의를 캘린더에 남겨두고 몇 가지 표시를 하고 싶을 수 있습니다. 아웃룩에는 이 작업을 처리할 수 있는 내장 기능이 없습니다. 이 튜토리얼에서는 두 개의 VBA 코드를 제공하여 회의를 취소하면서도 약속으로 유지하는 방법을 설명합니다.

취소된 회의를 약속으로 복사하기 위한 VBA 코드

취소된 회의를 약속으로 복사하기 위한 VBA 코드

다음은 회의를 취소하고 동시에 약속으로 복사하여 붙여넣는 두 가지 코드입니다.

참고: 코드를 활성화하기 전에 다음 두 가지 옵션이 체크되어 있는지 확인하십시오:

아웃룩을 활성화하고, 파일 > 옵션을 클릭한 후, 아웃룩 옵션 창에서 보안 센터 탭을 클릭하고 보안 센터 설정을 클릭합니다. 그런 다음 보안 센터 창에서 매크로 설정 탭을 클릭하고 모든 매크로 사용 (권장되지 않음; 잠재적으로 위험한 코드 실행 가능) 및 설치된 추가 기능에 대한 매크로 보안 설정 적용 옵션을 선택합니다. 확인 > 확인을 클릭하여 창을 닫습니다. 아웃룩을 다시 시작하세요 .

1. 아웃룩 캘린더 보기로 전환하고 취소하려는 회의를 선택합니다. Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈 을 클릭하여 새 빈 모듈을 삽입합니다. 그런 다음 아래 코드를 복사하여 붙여넣습니다.

코드: 약속으로 회의 복사 및 취소

Sub CopyMeetingAsAppointmentBeforeCancel()
'UpdatebyExtendoffice20221129
Dim xAppointmentItem As AppointmentItem
Dim xMeetingItem As AppointmentItem
On Error Resume Next
Set xMeetingItem = GetCurrentItem()
Set xAppointmentItem = Application.CreateItem(olAppointmentItem)
With xAppointmentItem
  .Subject = "Canceled: " & xMeetingItem.Subject
  .Start = xMeetingItem.Start
  .Duration = xMeetingItem.Duration
  .Location = xMeetingItem.Location
  .Body = xMeetingItem.Body
  .Save
  .Move Application.ActiveExplorer.CurrentFolder
End With
With xMeetingItem
  .MeetingStatus = olMeetingCanceled
  .Send
  .Delete
End With
Set xAppointmentItem = Nothing
Set xMeetingItem = Nothing
End Sub

Function GetCurrentItem() As Object
  On Error Resume Next
  Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
      Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
    Case "Inspector"
      Set GetCurrentItem = Application.ActiveInspector.CurrentItem
  End Select
End Function

3. 실행 버튼을 클릭하거나 F5 키를 누릅니다. 이제 선택된 회의가 취소되었으며 '취소됨'이라는 이름의 새로운 약속이 생성됩니다.

다른 캘린더에 회의를 약속으로 복사하고 붙여넣은 후 회의를 취소하려면 아래 코드를 사용하십시오:

코드: 다른 캘린더에 회의를 약속으로 복사하고 취소

Sub CopyMeetingAsAppointmentToCalenderBeforeCancel()
'Updatebyextendoffice20221129
Dim xDestCalendar As Outlook.MAPIFolder
Dim xNameSpace As Outlook.NameSpace
Dim xAppointmentItem As AppointmentItem
Dim xMeetingItem As AppointmentItem
On Error Resume Next
Set xNameSpace = Application.GetNamespace("MAPI")
Set xDestCalendar = xNameSpace.PickFolder
If xDestCalendar.DefaultItemType <> olAppointmentItem Then
  MsgBox "Please Select calendar folder. ", vbOKOnly + vbInformation, "Kutools for Outlook"
  Exit Sub
End If
Set xMeetingItem = GetCurrentItem()
Set xAppointmentItem = Application.CreateItem(olAppointmentItem)
With xAppointmentItem
  .Subject = "Canceled: " & xMeetingItem.Subject
  .Start = xMeetingItem.Start
  .Duration = xMeetingItem.Duration
  .Location = xMeetingItem.Location
  .Body = xMeetingItem.Body
  .Save
  .Move xDestCalendar
End With
With xMeetingItem
  .MeetingStatus = olMeetingCanceled
  .Send
  .Delete
End With
Set xDestCalendar = Nothing
Set xNameSpace = Nothing
Set xAppointmentItem = Nothing
Set xMeetingItem = Nothing
End Sub

Function GetCurrentItem() As Object
  On Error Resume Next
  Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
      Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
    Case "Inspector"
      Set GetCurrentItem = Application.ActiveInspector.CurrentItem
  End Select
End Function

실행 버튼을 클릭하거나 F5 키를 누르면, 약속을 붙여넣을 캘린더 폴더를 선택할 수 있는 폴더 선택 대화 상자가 나타납니다. 확인을 클릭합니다.