Examples: CaretNoteID property

This view action displays the Subject item from the current document in the current view.

Sub Click(Source As Button)
  Dim ws As New NotesUIWorkspace
  Dim uiview As NotesUIView
  Dim s As New NotesSession
  Dim db As NotesDatabase
  Dim doc As NotesDocument
  Set uiview = ws.CurrentView
  Set db = s.CurrentDatabase
  Set doc = db.GetDocumentByID(uiview.CaretNoteID)
  Messagebox doc.GetItemValue("Subject")(0),, _
  "Current document is ..."
End Sub

See also the example for InViewEdit.