例: SelectDocument method

次のビューアクションは、コレクションの最初の文書を選択し、ポインタをその文書に移動します。

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim workspace As New NotesUIWorkspace
  Dim collection As NotesDocumentCollection
  Dim doc As NotesDocument
  Dim uiview As NotesUIView
  Set db = session.CurrentDatabase
  Set uiview = workspace.CurrentView
  Set collection = db.AllDocuments
  Set doc = collection.GetFirstDocument
  Call uiview.SelectDocument(doc)
End Sub