Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
maildbinfo = Evaluate(|@MailDbName|)
'Set db = session.getdatabase(maildbinfo(0), maildbinfo(1))
Set db = session.CurrentDatabase
Set doc = db.getprofiledocument("CalendarProfile")
Call doc.remove(True)
End SubWenn Ihr einen Cluster betreibt, heisst das Teil CLUBUSY.NSF