LOTUSSCRIPT/COM/OLE CLASSES

Examples: FirstLineLeftMargin property
This example changes the FirstLineLeftMargin attribute and displays the change.

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 agenda")
Dim rtpStyle As NotesrichTextParagraphStyle
Set rtpStyle = session.CreateRichTextParagraphStyle
Dim richText As New NotesRichTextItem(doc, "Body")
If rtpStyle.FirstLineLeftMargin <> RULER_ONE_INCH Then
 rtpStyle.FirstLineLeftMargin = RULER_ONE_INCH
 Call richText.AppendText("Where are we now?")
 Call richText.AppendParagraphStyle(rtpStyle)
 Messagebox "First Line Left Margin: " & _
 rtpStyle.FirstLineLeftMargin
 Call doc.Save(True, False)
End If

See Also