Выделить программно документы в виде (uiview.selectdocument)

@Command([RunAgent]; "(selectDocsInView)");
@Command([ViewShowOnlySelected]);

    Call uiView.SelectDocument(doc)
keybd_event 32, 0, 0, 0  Space key down
keybd_event 32, 0, 2, 0  Space key up

    Dim ws As New NotesUIWorkspace
Dim uiView As NotesUIView
Set uiView = ws.CurrentView()
 
Dim view As NotesView
Set view = uiView.View()
 
Dim doc As NotesDocument
Set doc = view.GetFirstDocument()
Call uiView.SelectDocument(doc)
 
Set doc = view.GetNextDocument(doc)
Call uiView.SelectDocument(doc)

    keybd_event 32, 0, 0, 0  Space key down
keybd_event 32, 0, 2, 0  Space key up

Declare Sub keybd_event Lib "user32" (Byval bVk As Byte, _
Byval bScan As Byte, Byval dwFlags As Long, Byval dwExtraInfo As Long)
 
Const KEYEVENTF_KEYDOWN = &H0
Const KEYEVENTF_KEYUP = &H2
 
Sub Initialize
Dim ws As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim col As NotesDocumentCollection
Dim doc As NotesDocument
 
 
Set db = s.CurrentDatabase
Set col = db.UnprocessedDocuments
Set uiview = ws.CurrentView
Set view = uiview.View
 
Set doc = view.AllEntries.GetNthEntry(5).Document
Call uiview.SelectDocument(doc)
keybd_event 32, 0, KEYEVENTF_KEYDOWN, 0
keybd_event 32, 0, KEYEVENTF_KEYUP, 0
 
End Sub