Сообщения

1

IBM Lotus Notes & Domino / Календарь lotus

« : 05 Июнь 2018, 22:53:45 »

Настроен доступ и делегирование на несколько пользователей, как узнать кто создает левое событие? Есть ли какое-нибудь журналирование? Суть в том что появляется событие периодически повторяющееся в календаре босса, которое "типа" никто не создавал

2

Разработка приложений / Re: Как отправить письмо в агенте на Lotus Script?

« : 17 Ноябрь 2016, 14:34:19 »

Форму нужно использовать Memo, а в поле Body - все тело письма (Subject - тема и т.д.), в поле Body можно писать текст и все остальное.

Пример:

Код: [Выделить]

Dim s As New NotesSession
Dim db As NotesDatabase
Dim mailDoc As NotesDocument
Dim rtbody As notesRichTextItem

Set db = s.CurrentDatabase
Set mailDoc = db.CreateDocument

Set rtbody = New NotesRichTextItem(mailDoc, "Body")
Call rtbody.AppendText("Поступил новый документ")

mailDoc.Form = "Memo"
mailDoc.Principal = "noreply@lotusnotes.ru"
mailDoc.SMTPOriginator = "noreply@lotusnotes.ru"
mailDoc.DisplaySent = "Post agent"
mailDoc.Subject = "Оповещение"
mailDoc.Importance = "1"
mailDoc.SendTo = "usertosendmessage@lotusnotes.ru"
Call mailDoc.Send(False)


У меня смежная проблема но я пытаюсь на несколько адресатов отослать письмо

Код: [Выделить]

' Определяем адрес получателя
Dim arRec As Variant
arRec = curdoc.GetItemValue("email")
If Isarray(arRec) Then
rec = arRec(0)
Else
rec = arRec
End If
If rec ="" Then Msgbox "В РКК документа не указан E-mail" , , "Error"

ReDim preserve arRec(ubound(arRec)+1)
arRec(ubound(arRec))= curdoc.GetItemValue("email_3")(0)
rec=arRec


в итоге приходит только на одного адресата который в поле Email, Email_3 заполняется автоматически @формулами и может содержать 0-2 адресата но письмо в итоге не приходит, пока что не знаю в какую сторону копать, подсобите