例: NotesProperty class (LotusScript®)

これはフォームアクション用のスクリプトです。このアクションを 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