例: GetProperty method

この例は、新しい応答文書を作成する複合アプリケーションのボタンを示しています。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")
        title$ = prop.Title
    Else
        title$ = ""
    End If

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

End Sub