Сервисы поддержки / Примеры / Разное / Как из RSL рассылать email сообщения

Как из RSL рассылать email сообщения

Автор:Izmajlov
Дата:23.11.2006
Просмотров:3161
Скачиваний:2493
Оценка:

, Оценок - 5

Описание

При выполнении некоторых операций, по окончании неплохо иногда сообщать ответственным лицам о событии. Можно net send воспользоваться, а можно и отсылать email сообщение. Данный пример показывает как воспользоваться СОМ-объектом. Работает на WinXP, Server 2003, WinNT.
С уважением,
Измайлов Ф.В.

Текст примера

 b=ActiveX("CDO.Message");
b.from="<nobody@domen.ru>";
b.to="<person1@domen.ru>,<person2@domen.ru>";
b.subject="Баланс сведен за "+String(ДатаОтчета);
b.textbody= String(Time); // можно b.htmlbody="ля-ля";
// Адрес или имя сервера
/*b.configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")="mail.tlms.ru";*/
b.configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")="192.168.10.255";
b.configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusing")=2;
b.configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1;
// Два следующих оператора необходимы, если вы отправляетет почту через чужой mail-сервер
// Если рассылка идет через внутренний - то их можно убрать
b.configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusername")="login";
b.configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")="password";
b.configuration.fields.update;
// Прикрепляем файл - fName: полный путь к файлу+имя файла (!!!)
b.AddAttachment(fName);
b.send;
b = null;