Examples: TypeName 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 name and typename 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")
        name$ = prop.Name
        type$ = prop.TypeName
        title$ = "Property " & name$ & " of type " & type$
    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