RE: Customise own content in email notification Mary Young 13.Jul.10 11:18 AM a Web browser Lotus Workflow Architect 7.0Windows XP
I hope this will help you:
Dim db As NotesDatabase
Set db = CoverDocument.ParentDatabase
Set mailDocument = New NotesDocument(db)
Dim Rti As NotesRichTextItem
Set Rti = New NotesRichTextItem(MailDocument,"Body")
MailDocument.Subject ="X request needs your attention"
Call Rti.AppendText(MainDocument.sCM2EmailText(0))
Call Rti.AddNewLine(2)
Call Rti.AppendText("To take action, use the following document link: ")
Call Rti.AppendDoclink(MainDocument, "Link")
Call Rti.AddNewLine(2)
Call Rti.AppendText("To see the Workflow database, use the following link: " )
Call Rti.AppendDocLink( db, db.Title )