Hi,
I was ask if it would be possible to display the Document Signature on the memo after it send. When the user send a new signed memo, the recipient can see it in the Notes status bar if the document has been signed. I want to display that at the bottom of the memo so it can be printed.
Example:
Electronic Signature (session title)
Signature: 824CF… (electrinic signature)
Signed By: CN=UserName/O=Domain :0345ED…
Signed At: 2006/06/26 12:18
Is is possible?
Thank you!
Alexandre
Subject: Sure, this is how I do it…
I add the following code to the form’s QueryOpen event
If Not IsNewDoc Then
Dim session As New NotesSession
Dim doc As NotesDocument
Dim signer As NotesName
Dim verifier As NotesName
Dim item As notesitem
Set doc = source.Document
If doc.IsSigned Then
Set signer = session.createname(doc.signer)
Set verifier = session.createname(doc.Verifier)
Set item = New NotesItem (doc, "signinfo", "Signed by: " & signer.abbreviated & Chr(10) & "According to " & verifier.abbreviated)
Else
Set item = New NotesItem (doc, "signinfo", "This document is not signed")
End If
item.IsSummary = True
End If
and then I add computed text to the form with “signinfo” as the formula. This results in something such as:
This LotusScript code shown above was converted to HTML using the ls2html routine, provided by Julian Robichaux at nsftools.com.
Subject: RE: Sure, this is how I do it…
Hi,
Thanks!
It work fine for the new memo. When I reply with history, it add my name (Sign By…) in the history headder of the other users. Can I prevent that?
Thank you!
Alexandre