Outlook: Jak zachować anulowanie spotkania w kalendarzu jako organizator?

W programie Outlook, jako organizator spotkania, anulowanie spotkania spowoduje automatyczne usunięcie go z kalendarza. W niektórych przypadkach możesz zachować odwołane spotkania w kalendarzu, aby zrobić kilka notatek. Jednak w programie Outlook nie ma wbudowanych funkcji, które mogłyby obsłużyć to zadanie. W tym samouczku udostępnia dwa kody VBA do utrzymywania spotkania jako spotkania podczas anulowania.

Kody VBA do kopiowania odwołanego spotkania jako spotkania

Kody VBA do kopiowania odwołanego spotkania jako spotkania

Oto dwa kody umożliwiające anulowanie spotkania oraz jednoczesne kopiowanie i wklejanie go jako spotkania.

Uwaga: zanim włączysz kod, upewnij się, że te dwie opcje są zaznaczone:

Włącz Outlooka, kliknij filet > Opcje, w oknie Opcje programu Outlook kliknij Centrum zaufania kartę i kliknij Ustawienia Centrum zaufania, a następnie w oknie Centrum zaufania kliknij Ustawienia makr zakładka, sprawdź Włącz wszystkie makra (niezalecane; może działać potencjalnie niebezpieczny kod) i Zastosuj ustawienia zabezpieczeń makr do zainstalowanych dodatków opcje. Kliknij OK > OK zamknąć okna. restart Perspektywy

1. Szybki dostęp do widoku kalendarza programu Outlook i wybierz spotkanie, które chcesz anulować Naciśnij inny + F11 klawisze, aby włączyć okno Microsoft Visual Basic for Applications.

2. kliknij wstawka > Moduł aby włożyć nowy pusty moduł. Następnie skopiuj i wklej do niego poniższy kod.

Kod: Skopiuj spotkanie jako spotkanie i anuluj je

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. kliknij run lub naciśnij F5 teraz wybrane spotkanie zostało anulowane i nowe spotkanie o nazwie Anulowane i temat.

Jeśli chcesz skopiować i wkleić spotkanie jako spotkanie w innym kalendarzu, a następnie anulować spotkanie, użyj poniższego kodu:

Kod: Skopiuj spotkanie jako spotkanie w innym kalendarzu i anuluj je

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

Kliknij run lub naciśnij F5 klawisz, pojawi się okno dialogowe Wybierz folder, w którym możesz wybrać folder kalendarza do wklejenia spotkania, a następnie kliknij OK.