例: NameSpace property

このスクリプトは、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 PropNameSpace As String
PropNameSpace = pbInputProperty.NameSpace
Messagebox "Property NameSpace is " + PropNameSpace, MB_OK, "NameSpace"