|
|
To determine the currently selected document in a view you have to traverse it with the NotesDatabase property:UnprocessedDocuments which returns a document collection that you can examine.
The ... part in the code below marks where you can put code to access the active document. This may look strange, but it actually only returns the document that you currently stand on (unless you have marked a set of documents).
Dim workspace As New notesuiworkspace
Dim uidoc As notesuidocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
If (Not collection Is Nothing) Then
For i = 1 To collection.Count
Set doc = collection.GetNthDocument(i)
...
Next
End If