Outlook： 주최자로서 취소한 회의를 캘린더에 유지하려면 어떻게 해야 하나요？

Outlook 에서 회의 주최자으로서 회의를 취소하면 해당 회의는 자동으로 캘린더에서 삭제됩니다. 일부 상황에서는 취소된 회의를 캘린더에 남겨 두어 메모나 표시를 하고 싶을 수 있습니다. 그러나 Outlook 에는 이를 처리할 수 있는 기본 제공 기능이 없습니다。 이 튜토리얼에서는 회의를 취소하면서 동시에 약속(Appointment)으로 유지할 수 있는 두 가지 VBA 코드를 제공합니다。

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

---

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

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

참고： 코드를 활성화하기 전에 다음 두 옵션이 선택되어 있는지 확인하세요：

Outlook 을 실행하고，파일>옵션을 클릭합니다。 Outlook 옵션 창에서신뢰 센터탭을 클릭한 후，신뢰 센터 설정을 클릭합니다。 신뢰 센터 창에서매크로 설정탭을 클릭하고，모든 매크로 사용(권장되지 않음； 잠재적으로 위험한 코드가 실행될 수 있음)및설치된 추가 기능에도 매크로 보안 설정 적용옵션을 선택합니다。확인>확인을 클릭하여 이 창 닫기합니다。Outlook 을 다시 시작합니다。

1. Outlook 캘린더 보기로 빠르게 전환한 후 취소하려는 회의를 선택합니다。 그런 다음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키를 누릅니다。 이제 선택한 회의가 취소되었으며 ‘Cancled & subjet'이라는 이름의 약속이 생성됩니다。

회의를 다른 캘린더에 약속으로 복사한 후 회의를 취소하려면 아래 코드를 사용하세요：

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

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키를 누르면 폴더 선택 대화 상자가 열리며 약속을 붙여넣을 캘린더 폴더를 선택할 수 있습니다。 그런 후 확인을 클릭합니다。

이제 회의가 취소되었으며 선택한 캘린더 폴더에 약속으로 복사되어 붙여넣어졌습니다。