Examples: GetPropertyValue method

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"