Hello everyone,
We are using Crossware to append signatures to the bottom of all emails. The signatures work fine on the initial reply, but as emails continue to go back and forth, the signatures start to get appended to the entire email message, rather than at the reply.
Crossware provide a facility whereby you can search for a string of text in the mail, which can be used as a marker for the signature placement.
Having tested this on a reply form, using ---- reply from username ----..., it seems to work.
My issue now is implementing this into the design of the reply form.
So far, I have modified the postopen event as follows:
Sub Postopen(Source As Notesuidocument)
Dim session As New NotesSession
If source.InPreviewPane Then Exit Sub
Call cMemoObject.PostOpen(source)
If source.editmode And Not (source.isnewdoc) Then
Call cMemoObject.querymodechange(source)
Call cMemoObject.postmodechange()
End If
'refresh needed if orig. memo had follow up flag or if orig. memo was signed 'or if opening draft memo (for additional mail options)
If (source.isnewdoc And source.document.getitemvalue("OrigSig")(0) = "1") Or (source.isnewdoc And source.document.getitemvalue("origStat")(0) <> "" And source.document.getitemvalue("enterCopyTo")(0) = "") Or (Not source.isnewdoc And source.editmode) Or (source.IsNewDoc And source.Document.HasItem("DisplayCustExpDate") And source.document.getitemvalue("DisplayCustExpDate")(0) <> "") Then
Call source.refresh(False, False, True)
Call source.gotofield("Body")
Call source.InsertText( "----- Reply from "+ session.CommonUserName+" -----" )
End If
If (source.IsNewDoc) Then
Call source.gotofield("Body")
Call source.InsertText( "----- Reply from "+ session.CommonUserName+" -----" )
End If
End Sub
The result produces ----- Reply from Username -----, with the cursor ending up at the end of this line.
However, what I would like to achieve is to have the cursor above the reply from text, to avoid users having to manually navigate to that position, as seen below :
Cursor here
----- Reply from Username-----
Can anyone suggest how I might achieve this or is there another way to achieve what I want to do ?
Many thanks.
Answer by SimonB2018 (1) | Oct 16 at 03:14 AM
I managed to make it work by modifying the above code as follows:
If (source.IsNewDoc) Then Call source.gotofield("Body") Call source.insertText(Chr(10)+Chr(10)+ "----- Reply from "+ session.CommonUserName+" -----" )
Call source.gotofield("Body")
End If
When implemented, the cursor appears two lines above the "---Reply from" text. However, one caveat is that I had to switch my person document to "Prefers MIME" as the incoming mail preference to get the signature to appear above the ---reply from---
Does anyone know if this is resolved in Notes / Domino 10 ?
IBM Notes electronic signatures and the courts 2 Answers
User seems to have corrupt form design 3 Answers
Why does the Folder ACL not allow Directory Groups? 3 Answers
How to measure java agent memory use 1 Answer
Clarification on OriginalStartDate for an all day, recurring event in lotus notesnotes 1 Answer