Display the Document Signature

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