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 の例も参照してください。

関連項目

CaretNoteID プロパティ

用語集