function  SendEmailMessage

function  SendEmailMessage

Previous pageReturn to chapter overviewNext page

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.