abgelehnte Besprechungen entfernen

561
Richard McFarlane

Ich führe Outlook 2007 aus. Wenn ich eine Besprechungseinladung für ein 1-gegen-1-Konto sende und die Person eine Ablehnung zurücksendet, wie kann ich diese Besprechung aus meinem Zeitplan löschen, ohne die Person zu senden, die eine Stornierungsbenachrichtigung abgelehnt hat?

Wenn ich versuche, das Meeting zu löschen, besteht Outlook darauf, eine Stornierungsbenachrichtigung zu senden.

2

1 Antwort auf die Frage

0
Axel Kemper

Ich verwende die folgende VBA-Subroutine, um Termine aus meinem Kalender zu löschen.

Public Sub deleteSelectedAppointment() Dim obj As Object Dim cl As Integer Dim apt As AppointmentItem Dim aptDel As AppointmentItem Dim pattern As RecurrencePattern Dim cnt As Integer  On Error GoTo ErrHandler  cnt = 0 For Each obj In ActiveExplorer.Selection cl = obj.Class  Select Case cl Case olMail Case olTask Case olAppointment Set apt = obj Debug.Print "Appointment " & apt.subject  If apt.IsRecurring Then ' find and delete the selected item in a series Set pattern = apt.GetRecurrencePattern() Set aptDel = pattern.GetOccurrence(apt.Start) Else ' non-recurring appointment Set aptDel = apt End If  If aptDel Is Nothing Then Debug.Print "Nothing to delete!" Else aptDel.Delete cnt = cnt + 1 End If  Case Else Debug.Print "unexpected class " & cl End Select Next obj  Debug.Print "Deleted appointments: " & cnt  Exit Sub  ErrHandler: MsgBox "Cannot delete appointment" & vbCrLf & Err.Description, vbInformation Err.Clear On Error GoTo 0  End Sub 

Es funktioniert auch für Aufgaben und Mails. Natürlich kann eine solche Routine eine Menge löschen, wenn sie nicht sorgfältig verwendet wird ...