例: SpacingBelow property

次の例は、リッチテキスト段落スタイルオブジェクトの下の間隔を設定します。

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")
rtpStyle.SpacingBelow = SPACING_ONE_POINT_50
Call richText.AppendParagraphStyle(rtpStyle)
("Where are we now?")
Call doc.Save(True, False)