Общие вопросы > Разработка приложений
Как отправить письмо в агенте на Lotus Script?
Akimchik:
--- Цитата: lotusnotes.ru от 15 Октябрь 2009, 17:42:18 ---Форму нужно использовать 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 адресата но письмо в итоге не приходит, пока что не знаю в какую сторону копать, подсобите
Навигация
Перейти к полной версии