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

Тестовая кнопка для отправки почты:
Sub Click(Source As Button)
    On Error Goto ErrH
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim ws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument
    Set db = session.CurrentDatabase
    Print db.FileName
    Set uidoc = ws.CurrentDocument
    Set doc = ws.CurrentDocument.Document
    Set item = doc.GetFirstItem( "who" )       
   
    Dim tmpBody As NotesRichTextItem
    Dim rti As NotesRichTextItem
   
    Forall v In Item.Values
        Print "почтовое уведомление "  v   
        Dim docsend As NotesDocument
        Set docsend = New NotesDocument( db )
        docsend.Form = "Memo"
        docsend.SendTo = v
        docsend.Subject = "НОВЫЙ ДОКУМЕНТ!"

        Set rti = New NotesRichTextItem ( docsend, "Body" )   
        Call rti.AppendDocLink( doc, db.Title)
       
        Call docsend.Send( False )
        Print "Уведомление отправлено к " v
    End Forall
   
    Exit Sub
ErrH:
    Print Error(Err) & " в строке " & Erl
End Sub