Note: The other languages of the website are Google-translated. Back to English

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

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.

doc trifft sich weiterhin im Kalender 1

doc trifft sich weiterhin im Kalender 2

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

doc trifft sich weiterhin im Kalender 3

3 Klicken Run Taste oder drücken F5 Taste, jetzt wurde das ausgewählte Meeting abgesagt und ein neuer Termin mit dem Namen Abgesagt & Betreff.

doc trifft sich weiterhin im Kalender 4

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 Run 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“.

doc trifft sich weiterhin im Kalender 5

Jetzt wurde das Meeting abgesagt und als Termin in den von Ihnen gewählten Kalenderordner kopiert und eingefügt.

doc trifft sich weiterhin im Kalender 6


Kutools für Outlook - Bringt 100 erweiterte Funktionen in Outlook und erleichtert die Arbeit erheblich!

  • Auto CC / BCC nach Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Kundenwunsch; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
  • BCC-Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
  • Antwort (Alle) mit allen Anhängen in der E-Mail-Konversation; Viele E-Mails beantworten in Sekunden; Begrüßung automatisch hinzufügen bei der Antwort; Datum zum Betreff hinzufügen ...
  • Anhang Tools: Alle Anhänge in allen Mails verwalten, Automatische Trennung, Alle komprimieren, Alle umbenennen, Alle speichern ... Schnellbericht, Ausgewählte Mails zählen...
  • Leistungsstarke Junk-E-Mails nach Brauch; Entfernen Sie doppelte E-Mails und Kontakte... Ermöglichen Sie es Ihnen, in Outlook intelligenter, schneller und besser zu arbeiten.
Schuss Kutools Outlook Kutools Tab 1180x121
Schuss Kutools Outlook Kutools plus Tab 1180x121
 
Kommentare (0)
Noch keine Bewertungen. Bewerten Sie als Erster!
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL