LOTUSSCRIPT /COM/OLE のクラス

例:TypeName プロパティ
この例は、新しい応答文書を作成する複合アプリケーションのボタンを示しています。PropertyBroker プロパティを検査し、使用可能なものがあると、Subject プロパティの名前とタイプ名を検査し、プロファイル文書にその情報を保存します。応答文書の postopen イベントはプロファイル文書を検査し、新しい応答文書の 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 uiv As NotesUIView
Set uiv = ws.CurrentView
viewname$ = Strtoken(uiv.ViewName," ",1)
Dim pDoc As NotesDocument
Set pDoc = db.GetProfileDocument("tmpProfile")
pDoc.viewtitle = viewname$
Call pDoc.Save(True,False)

Dim pb As NotesPropertyBroker
Dim prop As NotesProperty
Set pb = s.CreatePropertyBroker()
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