Общие вопросы > Разработка приложений

Как отправить письмо в агенте на Lotus Script?

<< < (2/3) > >>

lotusnotes.ru:
Форму нужно использовать 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)

--- Конец кода ---

lotusnotes.ru:
Методами объекта NotesRichTextItem (поле Body) как раз и можно добавлять ссылки и другие элементы в тело письма

nadya:
ссылку, если нужно, можно вставить так
...
Dim rtitem As NotesRichTextItem
Set rtitem = New NotesRichTextItem( newDoc, "Body" )
Call rtitem.AppendDocLink( db, db.Title )
...

нужно использовать метод AppendDocLink
Call notesRichTextItem.AppendDocLink( linkTo, comment$ [, HotSpotText$ ] )

lotusnotes.ru:
nadya, спасибо за дополнение!

ShurikDM:
Спасибо большое, ребят!

Навигация

[0] Главная страница сообщений

[#] Следующая страница

[*] Предыдущая страница