例: CaretNoteID property

次のビューアクションは、現在のビューで現在の文書の Subject アイテムを表示します。

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

InViewEdit の例も参照してください。