Klar, vergessen, sorry:
Procedure/Steps
1. Create a new mail message.
2. Select Create > Hotspot > Button.
3. Add a label for the button such as "Delete Profile".
4. Set it to Run > Client. Select "LotusScript" instead of "Formula".
5. Paste the below codes accordingly as required i.e which profile you want to delete into the Program Pane window.
6. Send this email to the user having the problem, instructing the user to click the button. When user clicks the button the profile document will be deleted.
To Delete Calendar Profile document
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db=session.CurrentDatabase
Set doc=db.GetProfileDocument("CalendarProfile")
Call doc.remove(True)
Msgbox "Profile Document is Successfully Removed"
End Sub
Da unsere Postfächer auf MIME stehen und ein Button nicht
als Mail gesendet werden kann, habe ich einen Agenten damit
gebaut.
