1

Тема: Уведомления о доставке документа на лотус почту.

В кнопке отправки в массиве, кому шлем документ

' замещаем who на массив    
    Item.Values =  Fulltrim(valueArray)
    
    
    Forall v In Item.Values
                    '  -  ------------    ПОЧТА!!!   ----------------------
        Print "почтовое уведомление "  v        
        Dim docsend As NotesDocument
        Set docsend = New NotesDocument( db )
        'docsend.Form = "Memo"
        docsend.SendTo = v
        docsend.Subject = "НОВЫЙ ДОКУМЕНТ!"
        Call docsend.Send( False )
        Print "ОК - почта."
    End Forall    

Поделиться