Важно! Если требуется отправить E-mail группе пользователей, то используйте метод SendMail для группы.
Синтаксис
function SendMail(const AFrom, ATheme, ABody: string; const ARecipients: string = ''): TM_Mail;
Описание
Функция доступна в версиях PROFESSIONAL и DEMO-TIME. Для отправки E-mail сообщений необходимо предварительно настроить параметры отправки через "Options.exe" -> раздел "Simple-Scada Server" -> "Отправка E-mail сообщений".
Отправляет E-mail сообщение с темой ATheme, текстом ABody, именем отправителя AFrom и списком E-mail адресов получателей ARecipients, перечисленных через запятую. Если не указывать параметр ARecipients, то сообщение будет отправлено списку получателей заданному в "Options.exe" -> раздел "Simple-Scada Server" -> "Отправка E-mail сообщений". Возвращает nil, если при попытке создания сообщения возникла ошибка. К сообщению можно прикреплять вложения и отчеты.
Пример кода
1. E-mail сообщение без вложений 
begin
// отправить E-mail сообщение на адреса: simple-scada@yandex.ru, simple-scada@rambler.ru
SendMail('Simple-Scada', 'Авария котла!', 'Превышена максимальная температура', 'simple-scada@yandex.ru, simple-scada@rambler.ru');
// отправить E-mail сообщение списку получателей заданному в настройках "Options.exe"
SendMail('Simple-Scada', 'Авария котла!', 'Превышена максимальная температура');
end.
|
2. E-mail сообщение с вложением
var
aMail: TM_Mail;
begin
aMail := SendMail('Simple-Scada', 'Mail с вложением', 'Руководство во вложении'); // создаем сообщение
if aMail <> nil then // если сообщение успешно создано, то
aMail.AttachFile('E:\Manual.pdf'); // прикрепляем к нему файл "Manual.pdf"
end.
|
3. E-mail сообщение с отчетом
var
aMail: TM_Mail;
aReport: TM_Report;
begin
aReport := ReportBuild('Отчет'); // строим отчет
aMail := SendMail('Simple-Scada', 'Mail с отчетом', 'Отчет во вложении'); // создаём e-mail сообщение
if aMail <> nil then // если сообщение успешно создано, то
aMail.AttachReport(aReport, 'Мой отчет'); // прикрепляем к нему отчет с именем "Мой отчет"
end.
|
4. E-mail сообщение с форматированием
Отправка E-mail выполняется в HTML разметке, с помощью которой можно создать практически любую структуру, изменить часть текста, вставить изображение или ссылку и т.д.
var
aText: string;
begin
aText :=
'<p>Строка 1</p>' +
'<p><font color=''red''>Красный цвет</font></p>' +
'<p><b>Жирный текст</b></p>' +
'<p><a href=''simple-scada.com''>Ссылка на сайт</a></p>';
SendMail('Simple-Scada', 'Тема письма', aText);
end.
|
