Outlook: 주최자로 일정에서 회의 취소를 유지하는 방법은 무엇입니까?

Outlook에서 모임 이끌이가 모임을 취소하면 일정에서 모임이 자동으로 삭제됩니다. 경우에 따라 일부 표시를 위해 취소된 회의를 달력에 보관할 수 있습니다. 그러나 Outlook에는 이 작업을 처리할 수 있는 기본 제공 기능이 없습니다. 이 자습서에서는 취소하는 동안 회의를 약속으로 유지하기 위한 두 개의 VBA 코드를 제공합니다.

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

---

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

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

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

Outlook을 활성화하고 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 옵션 중, Outlook 옵션 창에서 클릭 보안 센터 탭을 클릭하고 보안 센터 설정, 보안 센터 창에서 클릭 매크로 설정 탭, 확인 모든 매크로 사용 (권장하지 않음, 잠재적으로 위험한 코드 실행 가능) 및 설치된 추가 기능에 매크로 보안 설정 적용 옵션. 딸깍 하는 소리 OK > OK 창을 닫습니다. 다시 시작 시야.

1. Outlook 일정 보기로 전환하고 취소하려는 회의를 선택합니다. 다른 + 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 키를 누르면 일정 폴더를 선택하여 약속을 붙여넣은 다음 확인을 클릭할 수 있는 폴더 선택 대화 상자가 나타납니다.

이제 회의가 취소되고 복사하여 선택한 일정 폴더에 약속으로 붙여넣었습니다.