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.