Форум компьютерной помощи — Уведомления о доставке документа на лотус почту.

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

2020-02-12T12:13:39Z

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

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

2019-11-15T12:44:15Z

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

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

2019-11-15T12:25:46Z

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

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

2019-11-15T08:55:33Z

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

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

2019-11-15T08:52:59Z

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

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

2019-10-22T10:27:54Z

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

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

2019-03-20T14:41:57Z

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

' замещаем 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