LOTUSSCRIPT /COM/OLE のクラス

例:NotesProperty クラス
これはフォームアクション用のスクリプトです。このアクションを Wiring Properties 設計要素で定義された「WSDL アクション」に関連付けるために、アクションプロパティダイアログが使用されました。このため、フォームが開かれ、Property Broker が WSDL アクションを開始すると、フォームアクションが実行されます。このダイアログは、Property Broker が渡すプロパティ値を持ったフォーム上の、propvalue の値を更新します。

Sub Click(Source As Button)
Dim s As New NotesSession
Dim workspace As New NotesUIWorkspace
If workspace.IsEmbeddedInsideWCT Then

 Dim pb As NotesPropertyBroker
 Set pb = s.GetPropertyBroker()
 Dim pbInputProperty As NotesProperty
 Dim pbContext As Variant

 'retrieves array of input NotesProperties
 'only first member of array is populated in this release
 pbContext = pb.InputPropertyContext
 Set pbInputProperty = pbContext(0)

 Dim InputPropertyName As String
 Dim NameSpace As String
 InputPropertyName = pbInputProperty.Name
 cName$ = InputPropertyName(0)

 Dim uidoc As NotesUIDocument
 Set uidoc = workspace.CurrentDocument
 Call uidoc.FieldSetText("propvalue",cName$)
 Call uidoc.Save
Else
 Messagebox "Wrong Configuration", MB_OK, "Basic Configuration"
End If
End Sub