AVZ 5. Руководство пользователя
×
Меню
Индекс

16.44.3. function  SendEmailMessage

function  SendEmailMessage(AServer, AFrom, ARecipients, ASubject, AMessageSt: string;
                          AIdentification : boolean;
                          ALogin, APasswd : string;
                          AAttachFile1, AAttachFile2, AAttachFile3 : string) : boolean;
 
 
Данная функция производит отправку письма под управлением скрипта.
Параметры функции:
AServer - имя или IP адрес почтового сервера, через который производится отправка письма
AFrom - значение поля "От кого"
ARecipients - список получателей
ASubject - тема письма
AMessageSt - текст сообщения, может содержать символы перевода строки
 
AIdentification - режим аутентификации. Если передается false, то аутентификация на сервере не производится и значение параметров ALogin и APasswd игнорируются. Если передается true, то аутентификация производится и параметры ALogin и APasswd должны быть заполнены.
ALogin - имя пользователя для авторизации на почтовом сервере
APasswd - пароль пользователя для авторизации на почтовом сервере
 
AAttachFile1, AAttachFile2, AAttachFile3 - имена файлов, которые должны быть приложены к письму. Передача пустого имени означает, что вложение не требуется.
 
Пример:
 
begin
  // Использовать карантин
  SetupAVZ('UseQuarantine=Y');
  // Запуск сканирования
  RunScan;
  // Что-то подозрительное ??
  if (GetSuspCount > 0) or (GetDetectedCount > 0) then begin
    // Выполнение исследования системы  
    ExecuteSysCheck(GetAVZDirectory + 'syscheck.htm');
    // Сохранение архива с файлами карантина
    CreateQurantineArchive(GetAVZDirectory+'quarantine.zip');
    // Отправка письма
    SendEmailMessage('mail.my_mail_server.ru', 'AVZ', 'my_mail@mail.ru',
                'AVZ email alert',
                'Report from computer "' + GetComputerName + '" '+#13 +
                'SuspCount = ' + InttoStr(GetSuspCount) + #13 +
                'DetectedCount = ' + InttoStr(GetDetectedCount) ,
                false, '', '',
                GetAVZDirectory + 'syscheck.zip',
                GetAVZDirectory + 'quarantine.zip',
                ''
                );
  end;
end.