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)