例: GetPropertyBroker method

  1. このスクリプトは、Property Broker によって選択された複合アプリケーションのアクションへの入力プロパティの名前を表示します。
    Dim s As New NotesSession
    Dim pb As NotesPropertyBroker
    Set pb = s.GetPropertyBroker()
    Dim pbInputProperty As NotesProperty
    Dim pbContext As Variant
    pbContext = pb.InputPropertyContext 
    Set pbInputProperty = pbContext(0)
    Dim InputPropertyName As String
    InputPropertyName = pbInputProperty.Name
    Messagebox "Property Name is " + InputPropertyName, MB_OK, "Name"
  2. このスクリプトは、選択した Property Broker に「Track」のプロパティ値を発行します。
    Dim s As New NotesSession
    Dim pb As NotesPropertyBroker
    Set pb = s.GetPropertyBroker()
    Call pb.setPropertyValue("Track",newCategory$)
    Call pb.Publish()