Hallo Werner,
danke für deine Antwort.
Laut Notespeek gibt es dort 3 Signatur Felder.
Wovon 2 befüllt sind.
Folgender Code bringt mir den selben Fehler wie oben:
Sub Click(Source As Button)
Dim session As NotesSession
Dim profile As NotesDocument
Dim db As NotesDatabase
Dim ws As NotesUIWorkspace
Set session = New NotesSession
Set db = session.CurrentDatabase
If Not (db Is Nothing) Then
Set profile = db.GetProfileDocument("CalendarProfile")
If Not (profile Is Nothing) Then
Call profile.ReplaceItemValue("Signature", "")
Call profile.ReplaceItemValue("Signature_1", "")
Call profile.ReplaceItemValue("Signature_2", "")
Call profile.Save(True, True)
End If
End If
End Sub