LOTUSSCRIPT /COM/OLE のクラス

例:PassThruHTML プロパティ
次のスクリプトは、リッチテキストアイテムを作成し、パススルー 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

関連項目