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

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

null@example.com (admin) — Wed, 12 Feb 2020 12:13:39 +0000

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

null@example.com (admin) — Fri, 15 Nov 2019 12:44:15 +0000

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

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

null@example.com (admin) — Fri, 15 Nov 2019 12:25:46 +0000

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

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

null@example.com (admin) — Fri, 15 Nov 2019 08:55:33 +0000

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

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

null@example.com (admin) — Fri, 15 Nov 2019 08:52:59 +0000

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

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

null@example.com (admin) — Tue, 22 Oct 2019 10:27:54 +0000

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

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

null@example.com (admin) — Wed, 20 Mar 2019 14:41:57 +0000

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

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