Examples: GetProperty method

This example illustrates a button in a composite application that would create a new response document. It checks for a PropertyBroker property, and if one is available, for the title of the Subject property, and uses the value to populate the Subject field in the new response document.

Sub Click(Source As Button)
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Set db = s.CurrentDatabase
    Dim ws As New NotesUIWorkspace

    Dim pb As NotesPropertyBroker
    Dim prop As NotesProperty
    Set pb = s.GetPropertyBroker()
    If Not pb Is Nothing Then
        prop = pb.getProperty("Subject")
        title$ = prop.Title
    Else
        title$ = ""
    End If

    Dim uidoc As NotesUIDocument
    Set uidoc = ws.ComposeDocument("","","Response")
    Call uidoc.FieldSetText("Subject",title$)

End Sub