16.46.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.
В примере использовались: CreateQurantineArchive, ExecuteSysCheck, GetAVZDirectory, GetComputerName, GetDetectedCount, GetSuspCount, RunScan, SendEmailMessage, SetupAVZ