Outlook: Wie kann ich das Meeting als Organisator im Kalender stornieren?

Wenn Sie als Besprechungsorganisator in Outlook die Besprechung stornieren, wird die Besprechung automatisch aus dem Kalender gelöscht. In einigen Fällen möchten Sie die abgesagten Besprechungen möglicherweise im Kalender behalten, um einige Markierungen vorzunehmen. Es gibt jedoch keine integrierten Funktionen in Outlook, die diesen Job verarbeiten können. In diesem Lernprogramm werden zwei VBA-Codes bereitgestellt, um die Besprechung als Termin beizubehalten, während sie abgesagt wird.

VBA-Codes zum Kopieren von abgesagten Besprechungen als Termin

VBA-Codes zum Kopieren von abgesagten Besprechungen als Termin

Autor: Sun Letzte Änderung: 2022-12-22

Hier sind zwei Codes, um das Meeting abzusagen und gleichzeitig als Termin zu kopieren und einzufügen.

Hinweis: Bevor Sie den Code aktivieren, vergewissern Sie sich bitte, dass diese beiden Optionen aktiviert sind:

Aktivieren Sie Outlook und klicken Sie auf Reichen Sie das > Optionen, klicken Sie im Fenster Outlook-Optionen auf Trust Center Registerkarte, und klicken Sie auf Vertrauensstellungscenter, und klicken Sie dann im Trust Center-Fenster auf Makroeinstellungen Registerkarte, überprüfen Aktivieren Sie alle Makros (nicht empfohlen; potenziell gefährlicher Code kann ausgeführt werden) und Wenden Sie Makrosicherheitseinstellungen auf installierte Add-Ins an Optionen. Klicken OK > OK um die Fenster zu schließen. Wiederaufnahme Ausblick.

1. Wechseln Sie zur Outlook-Kalenderansicht und wählen Sie das Meeting aus, das Sie stornieren möchten. Drücken Sie Andere + F11 Tasten zum Aktivieren des Fensters Microsoft Visual Basic für Applikationen.

2 Klicken Insert > Modul um ein neues leeres Modul einzufügen. Kopieren Sie dann den folgenden Code und fügen Sie ihn ein.

Code: Besprechung als Termin kopieren und absagen

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 Klicken Führen Sie Taste oder drücken F5 Taste, jetzt wurde das ausgewählte Meeting abgesagt und ein neuer Termin mit dem Namen Abgesagt & Betreff.

Wenn Sie das Meeting kopieren und als Termin in einen anderen Kalender einfügen und dann das Meeting stornieren möchten, verwenden Sie den folgenden Code:

Code: Besprechung als Termin in einen anderen Kalender kopieren und absagen

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

Klicken Sie auf Kostenlos erhalten und dann auf Installieren. Führen Sie Taste oder drücken F5 drücken, erscheint ein Dialogfeld „Ordner auswählen“, in dem Sie einen Kalenderordner zum Einfügen des Termins auswählen können, und klicken Sie dann auf „OK“.