Probleme beim signieren eines Dokuments über doc.sign

Guten Morgen an alle...

Vielleicht hat jemand einen Rat.
Ich habe das untenangeführte Script.

Es füllt erst ein Rich Text Feld und anschliessende soll das Dokument signiert werden.

Er bringt mir aber immer den selben feheler bei doc.sign.

Notes Error :Die Signatur im Dokument ist unzulässig (inkonsistente Feldsignatur)

setze ich aber das füllen des RTF hinter die Signierung dann geht es, doch ich wollte alles Signieren.

Hatt schon versucht alle Felder Vorher über

Forall oitems in doc.items
oitems.IsSigned = False
End Forall

auf nicht signiert zu setzen doch hat es keine Besserung gebracht.

hat da jemand ne idee?
Schon mal Vielen Dank für eure Hilfe

Dim ws As New Notesuiworkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem

Set uidoc = ws.Currentdocument
If uidoc.Editmode Then Call uidoc.Save
Set doc = uidoc.Document

Dim session As New Notessession
Dim db As NotesDatabase

Set db = session.Currentdatabase
Dim dialogdoc As New Notesdocument(db)

If doc.Feld(0) <> "" Then
doc.SaveOptions = "0"
Call uidoc.Close(True)

Set rtitem = doc.GetFirstItem("RTF")
If rtitem Is Nothing Then Exit Sub

Forall anhaenge In doc.Feld
Call rtitem.EmbedObject(EMBED_ATTACHMENT, "", Cstr(anhaenge))
End Forall

Call doc.Save(True,False)

Set uidoc = ws.EditDocument(True,doc)
Set doc = uidoc.Document
End If

If doc.isSigned Then
Print "Dokument wurde zuletzt von "+doc.signer
End If

doc.sign
Call doc.Save(True,False)

Geändert hab ich ihn..danke für den tipp

doch das problem ist immernoch da...und ich habe bei alles Feldern keine angaben bei den Sicherheitsoptionen.

kanns mir das nicht erklären