mit folgendem Script als Button verschickt und im Anschluß ein paar Einstellungen im Profil Dokument der Mail Schablone wieder nach getragen, schon klappt es.
Sub Click(Source As Button)
Dim s As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
'This line returns the name of the mailfile
maildbinfo = Evaluate(|@MailDbName|)
Set db = s.getdatabase(maildbinfo(0), maildbinfo(1))
Set doc = db.getprofiledocument("CalendarProfile")
If Not doc.isnewnote Then Call doc.remove(True)
End Sub
Vielen Dank für Eure Hilfe