LOTUSSCRIPT/COM/OLE CLASSES

Examples: NotesFont property
This example builds a rich text item and sets styles so that part of the text is Helvetica and part is Courier.

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.NotesFont = FONT_HELV
 Call richText.AppendStyle(richStyle)
 Call richText.AppendText("The meeting is at ")
 richStyle.NotesFont = FONT_COURIER
 Call richText.AppendStyle(richStyle)
 Call richText.AppendText("3:00")
 richStyle.NotesFont = FONT_HELV
 Call richText.AppendStyle(richStyle)
 Call richText.AppendText(" not 2:00")
 Call doc.Save(True, False)
End Sub

See Also