LOTUSSCRIPT /COM/OLE のクラス

例:GetProperty メソッド
この例は、新しい応答文書を作成する複合アプリケーションのボタンを示しています。PropertyBroker プロパティを検査し、Subject プロパティのタイトルに使用可能なものがあると、その値を新しい返答文書の [Subject] フィールドに入力します。

Sub Click(Source As Button)
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Set db = s.CurrentDatabase
   Dim ws As New NotesUIWorkspace

   Dim pb As NotesPropertyBroker
   Dim prop As NotesProperty
   Set pb = s.GetPropertyBroker()
   If Not pb Is Nothing Then
       prop = pb.getProperty("Subject")
       title$ = prop.Title
   Else
       title$ = ""
   End If

   Dim uidoc As NotesUIDocument
   Set uidoc = ws.ComposeDocument("","","Response")
   Call uidoc.FieldSetText("Subject",title$)

End Sub