Войти
 
 
 
Форум NotesNet Регистрация Список пользователей Последние сообщения Поиск Выход
Форум NotesNet > Разработка web-приложений > Отправка почтового сообшения, используя Lotus Script.
   
Для создания сообщения необходимо
аутентифицироваться на сервере
11/14/2011 03:35:14 PM Отправка почтового сообшения, используя Lotus Script.
The_Hitcher
Регистрация: 11/14/2011
Сообщений: 4
Здравствуйте!..

Не силён в Lotus Script. Поэтому вопрос к сециалистам.

Используется стандартная, с некоторыми доработками процедура WEB-регистрации пользователя из пятой версии Domino. В форме New Account, в агенте Handle New Account Request, в подпрограмме Handle New Account, необходимо после завершения создания документов в Адресной книге выслать простейшее почтовое сообщение на фиксированный адрес.

При использовании языка формул, это делается просто:

@MailSend(MailAdress;"";"";"Текст"; "Текст"; "Текст");

Как это можно добавать в "хвост" используемого скрипта?

Заране благодарен за помощь.
С уважением.

 
Ответить с цитированием
11/14/2011 06:01:59 PM
susinmn
Регистрация: 07/02/2009
Сообщений: 10
Dim s As New NotesSession
Dim db As NotesDatabase

Set db = s.CurrentDatabase
Set maildoc = New NotesDocument(db)
Set rtitem = New NotesRichTextItem(maildoc, "Body")

maildoc.SendTo = "Массив получателей"
maildoc.Subject = "Тема сообщения"
Call rtitem.AppendText("Текст сообщения")
Call maildoc.Send(False)

 
11/14/2011 06:05:42 PM Спасибо!
The_Hitcher
Регистрация: 11/14/2011
Сообщений: 4
Цитата:Сообщение от susinmn
Dim s As New NotesSession
Dim db As NotesDatabase

Set db = s.CurrentDatabase
Set maildoc = New NotesDocument(db)
Set rtitem = New NotesRichTextItem(maildoc, "Body")

maildoc.SendTo = "Массив получателей"
maildoc.Subject = "Тема сообщения"
Call rtitem.AppendText("Текст сообщения")
Call maildoc.Send(False)


Спасибо!.. Завтра попробую...

 
11/15/2011 03:17:02 PM
Ник
Регистрация: 04/24/2009
Сообщений: 150
http://www.notesnet.ru/question/docid/0B78AAhttp://www.notesnet.ru/question/docid/0B78AA

 
11/15/2011 05:57:49 PM
The_Hitcher
Регистрация: 11/14/2011
Сообщений: 4
Всё!..

Спасибо!.. Разобрался... :)


Последний раз редактировалось, 29.11.2011 17:09:34.

 
11/29/2011 06:41:34 PM
The_Hitcher
Регистрация: 11/14/2011
Сообщений: 4
Цитата:Сообщение от Ник Норкин
http://www.notesnet.ru/question/docid/0B78AAhttp://www.notesnet.ru/question/docid/0B78AA


Можно ли добавить строки:

Set item = New NotesItem(mdoc, "CopyTo", "BarakObama@whitehouse.gov")
item.IsSummary = True
Set item = New NotesItem(mdoc, "Recipients", "BarakObama@whitehouse.gov")
item.IsSummary = True

Или что-то другое нужно написать вместо "Recipients" ?

 
11/30/2011 05:31:46 PM
Ник
Регистрация: 04/24/2009
Сообщений: 150
Recipients - это системное поле, на этот список адресов и уходит почта
SendTo, CopyTo - информационные поля, для показа пользователю,
если адреса из Recipients нет в этих двух полях, то показывается как скрытая копия (BlindCopyTo)

 
Для создания сообщения необходимо
аутентифицироваться на сервере
Дополнительно
Статистика форума Именинники
Новый пользователь: rAmantiK
Участников: 247
Тем: 167
Сообщений: 416
Нет именинников
Статистика
Самые активные авторы Новые пользователи Наиболее просматриваемы темы
Пользователи Сообщения
Ник Норки...150
Denny71
Мэкс29
Golembiov...19
CarteBlan...17
Duchan15
lmed13
Mitka Aku...13
susinmn10
Kachinkin8
Пользователи Сообщения
rAmantiK2
Олег Изос...0
yungert0
webguru1
tsibus_s1
nataname0
URSiP0
RK5D0
Эбзеев Ру...0
nuesro1
Тема Автор Просмотров Ответов
"плюсы" и "минусы" создания са...Ник Норкин6236854
Обсуждаем "Сборщик почты"Duchan3773327
Первое впечатлениеDNN2810213
Экспорт из oracle в lotusslavyan2770113
На сайте, в статьях не работаю...Duchan255633
HTTP POST из кода базыDaime165824
[Domino Designer]Не могу откры...SiM22145056
Lotus Sametime Connect 8.0.2 п...HardCool141051
Lotus CMSKachinkin139423
nginx + dominoNetWood120451
 
© LOGOSPHERE.RU