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.

See Also

CaretNoteID property

Glossary