Выбор документов из представления

Данный код позволяет выбрать из представления документы вне зависимости от того, проставлены ли галочки на них или подсвечен один документ без галочки. Если код работает из агента, то в свойствах агента в поле Target секции Runtime рекомендуется выбрать None.

Dim recCol As NotesDocumentCollection
Dim doc As NotesDocument

Dim s As New NotesSession
Dim db As NotesDatabase

Dim ws As NotesUIWorkspace
Dim uivw As NotesUIView

Set db = s.CurrentDatabase

Set ws = New NotesUIWorkspace
Set uivw = ws.CurrentView
Set recCol = uivw.Documents
'<если в представлении нет выделенных документов галкой>
If recCol.Count = 0 Then
If uivw.CaretNoteID <> "0" Then
Set doc = db.GetDocumentByID(uivw.CaretNoteID)
If Not doc Is Nothing Then
Call recCol.AddDocument(doc)
End If
End If
End If
'<если в представлении нет выделенных документов галкой>

If recCol.Count = 0 Then
MsgBox "Не выбран ни один документ!"
Exit Sub
End If
MsgBox "Число выбранных документов: " + CStr(recCol.Count)