Examples: Title property
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
Print "The title of the Subject is: " & title$
Dim uidoc As NotesUIDocument
Set uidoc = ws.ComposeDocument("","","Response")
Call uidoc.FieldSetText("Subject",title$)
End Sub