Termin wieder aus outlook löschen

[tismo]

Code [Auswählen] Erweitern

Hallo,

ich habe folgende Einträge gemacht, um einen Termin in Outlook einzutragen.

Private Sub BeerdigungsDatum_AfterUpdate()
   
    Dim outApp As Outlook.Application
    Dim outtest As Outlook.AppointmentItem

    Set outApp = New Outlook.Application
    Set outtest = outApp.CreateItem(olAppointmentItem)
    With outtest
        outtest.Body = BeerdigungsFriedhof
        outtest.AllDayEvent = True
        outtest.ReminderMinutesBeforeStart = 60
        outtest.Start = Format(Me![BeerdigungsDatum], "dd.mm.yyyy") & " " & Format(Me![BeedigungsUhrzeit], "hh:mm")
        outtest.Duration = 60
        outtest.Subject = "Beisetzung: " & SterbefallVorname & " " & SterbefallName & ", " & BeerdigungsFriedhof
        outtest.Save
    End With
End Sub

klappt einwandfrei. Nun das Problem: wenn das Datum geändert wird, wird der wert in Outlook nicht gelöscht sondern nur hinzugefügt.

Wie muss ich den oberen Eintrag ändern, dass Die Termine und die Uhrzeit bei Änderung auch in Outlook geändert werden bzw. die alten Daten gelöscht werden?

Danke für die Hilfe