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    

Поделиться

2

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

Но данный скрипт надо доработать, чтобы делалась проверка - есть ли почтовый ящик на сервере домино у получателя уведомления.

Поделиться

3

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

Инструкция по созданию и настройки почтового ящика для получения уведомлений.
1. Еслиу у юзера нет ящика, то создаем его на сервере:

Post's attachments

Yashik-1.JPG, 77.13 kb, 414 x 491
Yashik-1.JPG 77.13 kb, 191 downloads since 2019-11-15 

Поделиться

4

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

В домино администраторе по людям мы видим, у кого не указан маил сервер, значит нет почтового ящика, и его нужно создавать.

Post's attachments

Yashik-Domino.JPG, 87.88 kb, 727 x 355
Yashik-Domino.JPG 87.88 kb, 187 downloads since 2019-11-15 

Поделиться

5

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

У клиента, в Файл -> Параметры -> Параметры и настройки -> Почта, ставим галочки звука и вспывающего оповещения.

Post's attachments

Klient-Pochta-Lotus.JPG, 42.51 kb, 493 x 396
Klient-Pochta-Lotus.JPG 42.51 kb, 201 downloads since 2019-11-15 

Поделиться

6

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

Далее проверяем настройки работы лотус клиента человека с его почтовой базой на сервере.

Post's attachments

NastroykaLotus.JPG, 39.63 kb, 384 x 236
NastroykaLotus.JPG 39.63 kb, 191 downloads since 2019-11-15 

Поделиться

7

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

Тестовая кнопка для отправки почты:
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

Поделиться