sorry....hier die Beschreibung für funzt net:
öffne MAIL DB vom User im Designer
erstelle neuen Agent und kopiere den Code in Container Initialize
Sub Initialize
Dim session As NotesSession
Dim db As NotesDatabase
Dim prof As NotesDocument
Set session = New notessession
Set db = session.currentdatabase
Set prof = db.GetProfileDocument("CalendarProfile")
Call prof.remove(True)
End Sub
Öffne dann DB vom User und führe diesen über Menü Aktionen aus...passiert aber nichts...
liegt wohl an meinen genialen Notes Kenntnissen