привет Всем. помогите организовать цикл по выделенным документам. в данном коде если выделить несколько документов он присваевает только 1
Dim ses As New NotesSession
Dim ws As New NotesUIWorkspace
Dim coll As NotesDocumentCollection
Dim cdoc As NotesDocument
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim picklist As Variant
Set db =ses.CurrentDatabase
Set doc = ws.CurrentDocument.Document
Set coll = ws.PickListCollection(3,True,db.Server,db.FilePath,"Zakladka","Выбор...","Выберите процесс")
Set cdoc = coll.GetFirstDocument
If Not cdoc Is Nothing Then
doc.Na=cdoc.Na
doc.FIO=cdoc.FIO
doc.Naim=cdoc.Naim
End If
Dim ses As New NotesSession
Dim ws As New NotesUIWorkspace
Dim coll As NotesDocumentCollection
Dim cdoc As NotesDocument
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim picklist As Variant
Set db =ses.CurrentDatabase
Set doc = ws.CurrentDocument.Document
Set coll = ws.PickListCollection(3,True,db.Server,db.FilePath,"Zakladka","Выбор...","Выберите процесс")
Set cdoc = coll.GetFirstDocument
If Not cdoc Is Nothing Then
doc.Na=cdoc.Na
doc.FIO=cdoc.FIO
doc.Naim=cdoc.Naim
End If