Protokollierung von Löschungen

[mbessmann]

Hallo ihr da draußen!

Ich habe da mal eine Frage.
Ich habe mir mal mit der Notes-Hilfe und einem Handbuch einen Code zusammengebastelt mit dem ich Löschungen von Mails protokollieren kann. Nachfolgend der Code:

Dim logdoc As NotesUIDocument
Dim DBLog As NotesLog
Set logdoc = ws.CurrentDocument   
Set DBLog = session.CreateLog ("Test HK")
Call DBLog.Opennoteslog("HABMAIL1/SERVER/IHK", "AgentProtokoll.nsf")
Call DBLog.Logaction("Dokument gelöscht. Thema: " + logdoc.FieldGetText("Subject"))
Call DBLog.Close()

Nun benötige ich aber noch die Protokollierung von Löschungen aus dem Kalender. Aber ich schaffe es einfach nicht, den Code anzupassen.
Kann mir da jemand helfen?

Vielen Dank im Voraus!

Marco

[wflamme]

Kalender ist problematischer weil bei Serienterminen erst die Antwortdokumente gelöscht werden müssen -  sonst gibt's Leichen. Aber ich guck mal...

[mbessmann]

Vielen Dank Wolfgang, das wäre nett!
(irgendwie muss ich doch der Sekretärin des Chefs beweisen, dass sie die Kalendereinträge löscht und nicht der heilige Geist... )