LOTUSSCRIPT/COM/OLE CLASSES

Examples: PassThruHTML property
This script creates a rich text item and marks it as passthru HTML.

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Set db = session.CurrentDatabase
 Dim doc As New NotesDocument(db)
 Call doc.AppendItemValue("From", session.UserName)
 Call doc.AppendItemValue("Subject", _
 "Meeting time changed")
 Dim richStyle As NotesRichTextStyle
 Set richStyle = session.CreateRichTextStyle
 Dim richText As New NotesRichTextItem(doc, "Body")
 richStyle.PassThruHTML = True
 Call richText.AppendStyle(richStyle)
 Call richText.AppendText("<B>Hello</B>")
 Call doc.Save(True, False)
End Sub

See Also