LOTUSSCRIPT/COM/OLE CLASSES

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