I want to take the currently open memo from my inbox, forward the memo to “specific name”, copy to “specific name”, include attachments from original, and at the beginning add a line of text and then open the new memo in edit mode. All the lotus script works great except that the Text I insert at the beginning of the body goes just below my signature text. Is there a way to correct this? My lotus script is below:
thanks
Milton
Set ws = New NotesUIWorkspace
Set session = New NotesSession
Set db = session.CurrentDatabase
Set profile = db.GetProfileDocument(“CalendarProfile”)
Set note = ws.CurrentDocument
Set mailnote = New NotesDocument(db)
Call note.document.CopyAllItems(mailnote, True)
mailnote.SendTo = “email name”
mailnote.CopyTo = note.FieldGetText(“From”)
Dim item As notesitem
Set item = mailnote.GetFirstItem(“CopyTo”)
Call item.AppendToTextList(“Another Email”)
Dim body As NotesRichTextItem
Set body = mailnote.GetFirstItem(“Body”)
Dim rtnav As NotesRichTextNavigator
Set rtnav= body.CreateNavigator
Call rtnav.FindFirstElement(RTELEM_TYPE_TEXTPARAGRAPH)
Call body.BeginInsert(rtnav)
Call body.AppendText(“Please review and Post.”)
Call body.AddNewline(3)
Call body.EndInsert
mailnote.Form = “Memo”
mailnote.Logo = profile.DefaultLogo(0)
mailnote.Principal = profile.Owner(0)
Call ws.EditDocument(True,mailnote)