LOTUSSCRIPT/COM/OLE CLASSES
Dim s As New NotesSession Dim pb As NotesPropertyBroker Set pb = s.GetPropertyBroker() Dim pbValue As Variant Dim pbInputProperty As NotesProperty Dim pbContext As Variant pbContext = pb.InputPropertyContext Set pbInputProperty = pbContext(0) Dim InputPropertyName As String InputPropertyName = pbInputProperty.Name pbValue = pb.getPropertyValue(InputPropertyName) Messagebox "Received " & InputPropertyName & " value: " & pbValue(0), MB_OK, "GetPropertyValue"