Скрипты Simple-Scada

begin
  // отправить e-mail пользователю usAdmin
  usAdmin.SendMail('Simple-Scada', 'Авария котла!', 'Превышена максимальная температура');
end.

var
  aMail: TM_Mail;
begin
  // создаем e-mail сообщение для отправки пользователю usAdmin
  aMail := usAdmin.SendMail('Simple-Scada', 'Mail с вложением', 'Руководство во вложении');
  
  if aMail <> nil then                  // если сообщение успешно создано
    aMail.AttachFile('E:\Manual.pdf');  // то прикрепляем файл "Manual.pdf"
end.

var
  aMail: TM_Mail;
  aReport: TM_Report;
begin
  aReport := ReportBuild('Отчет');  // строим отчет
 
  // создаем e-mail сообщение для отправки пользователю usAdmin
  aMail := usAdmin.SendMail('Simple-Scada', 'Mail с отчетом', 'Отчет во вложении'); 
  if aMail <> nil then                          // если сообщение успешно создано
    aMail.AttachReport(aReport, 'Мой отчет');   // прикрепляем отчет к e-mail сообщению с именем "Мой отчет"
end.