Examples: SelectDocument method

This view action selects the first document in a collection and moves the pointer to that document.

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