выцепить документ под курсором

[Nealles]

lotusScript.

есть переменная doc типа NotesDocument. в клиенте открыт view "sklad"

как мне узнать документ под курсором в этом view.
то есть мне надо переменной doc присвоить документ, стоящий под курсором.

 

[Medevic]

Выдрал из хелпа:

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