LOTUSSCRIPT /COM/OLE のクラス

例:QueryOpenDocument イベント
次の例は、ユーザーの「Work area」を NotesUIView スクリプトに対してグローバルな変数に格納します。QueryOpenDocument イベントは、ユーザーがビューで文書を開こうとすると、文書のカテゴリを調べます。カテゴリがユーザーの「Work area」と同じではない文書は開かれません。

(Declarations)
Dim workArea As String

Sub Postopen(Source As Notesuiview)
 workArea = Inputbox ("What is your work area?", _
 "Work area", "Marketing")
End Sub

Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
 Dim docs As NotesDocumentCollection
 Dim doc As NotesDocument
 Set docs = Source.Documents
 Set doc = docs.GetFirstDocument
 If Ucase (doc.Categories(0) ) <> Ucase (workArea) Then
   Continue = False
 End If
End Sub

関連項目