例: TypeName property

この例は、新しい応答文書を作成する複合アプリケーションのボタンを示しています。PropertyBroker プロパティを検査し、Subject プロパティの名前とタイプ名に使用可能なものがあると、その値を新しい返答文書の [Subject] フィールドに入力します。

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