LOTUSSCRIPT/COM/OLE CLASSES

Examples: GetNotesFont method
This agent creates a document with a rich text item with three lines of text in different fonts.

Dim session As NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rti As NotesRichTextItem
Dim style As NotesRichTextStyle

Sub Initialize
 Set session = New NotesSession
 Set db = session.CurrentDatabase
 Set doc = New NotesDocument(db)
 Call doc.ReplaceItemValue("Form", "Main Topic")
 Call doc.ReplaceItemValue("Subject", "Three fonts")
 Set rti = New NotesRichTextItem(doc, "Body")
 Set style = session.CreateRichTextStyle
 style.NotesFont = rti.GetNotesFont("Times", True)
 Call rti.AppendStyle(style)
 Call rti.AppendText("This text is in Times.")
 Call rti.AddNewLine(2)    
 style.NotesFont = rti.GetNotesFont("Courier", True)
 Call rti.AppendStyle(style)
 Call rti.AppendText("This text is in Courier.")
 Call rti.AddNewLine(2)    
 style.NotesFont = rti.GetNotesFont("Arial", True)
 Call rti.AppendStyle(style)
 Call rti.AppendText("This text is Arial.")
 Call doc.Save(True, True)
End Sub

See Also