Hi There,
I am trying to send a mail via LotusScript, but whe the email opens to allow the user to edit it before its sent the text i am inserting into the body is after the pre-set signature.
Does anyone know how i can get the text to insert before the signature?..I have tried a NotesRichTextNavigator, but its not the rich text i want to edit.
Thanks for any help.
F1H
Code (if it helps) :
Sub SendCreatorEmail(docCurrent As NotesDocument,strStatus)
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim docMail As NotesDocument
Dim rtitem As NotesRichTextItem
Dim uidoc As NotesUIDocument
Dim MailDb As New NotesDatabase( "", "" )
Call MailDb.OpenMail
Set db = session.CurrentDatabase
Set docMail = MailDb.CreateDocument
docMail.Form = "Memo"
docMail.SendTo = docCurrent.CreatedBy(0)
docMail.Subject = "Your Issue has been marked as " & strStatus
Set rtitem = docMail.CreateRichTextItem("Body")
Call rtitem.AppendText("A Issue you raised in the Issue Logging System has now been marked as " & strStatus)
Call rtitem.AddNewLine( 2 )
If strStatus = "Complete" Then
Call rtitem.AppendText("Can you please check that the issue has been closed out to your satisfaction and if not, raise another issue referencing this one.")
Elseif strStatus = "In Progress" Then
Call rtitem.AppendText("You will be notified once the issue has been marked as complete")
End If
Call rtitem.AddNewLine( 2 )
Call rtitem.AppendText("Click the link to view the action..............")
Call rtitem.AppendDocLink(docCurrent, "Link to action.")
Delete rtitem
Set uidoc = ws.EditDocument(True,docMail)
End Sub