Отправка документа группе юзеров

2023-02-15T06:42:47Z

В переменную, а точнее в дальнейшем массив picklist надо заполнить фио с коллекции документов.

    Set strukdb = session.GetDatabase(server, "promdoc\policy.nsf" , False )
    Set view = strukdb.GetView("StrukGroup")
    
    Print "11111111111111-"
    Dim picklist As  Variant
    
    Dim     doccol As NotesDocumentCollection
    Set    doccol = view.GetAllDocumentsByKey("Канцелярия")
    If  doccol.Count = 0 Then Exit Sub
    Print "doccol.Count  " doccol.Count 

    Redim picklist(doccol.Count - 1)
    
    Set ftdoc = doccol.GetFirstDocument()
    x=0
    While Not ftdoc Is Nothing        
        picklist(x) =  ftdoc.FIO(0)    
        x=x+1
        Set ftdoc =     doccol.GetNextDocument(ftdoc)
    Wend

если использовать GetNthDocument(x) - то Х >=1 (первый элемент в коллекции = 1, а не 0)

    For x = 1 To doccol.Count -1
        Set ftdoc =     doccol.GetNthDocument(x) 
        If ftdoc.HasItem(FIO) Then picklist(x) =  ftdoc.FIO(0)
    Next

Форум компьютерной помощи — Отправка документа группе юзеров

Отправка документа группе юзеров