Скрипты Simple-Scada

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

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