例: QueryOpenDocument event

次の例は、ユーザーの「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