Синтаксис

SendMail(STRING Filename)

FLOAT SendMail(STRING Filename, FLOAT Wait)


Описание

Позволяет отправить электронное письмо через Интернет. Текст письма должен быть записан в текстовый файл Filename. Файл должен содержать теги:

<send_email>                - открывающий тег 

<receiver>…</receiver>        - адрес получателя письма

<sender>…</sender>        - адрес отправителя письма

<title>…</title>                - заголовок письма (необязательно)

<text>…</text>                 - текст письма (необязательно)

</send_email>                - закрывающий тег

<attach>…</attach>                - путь к файлу, отправляющемуся вместе с письмом (только один файл) (необязательно)


Параметры

Filename        Путь к файлу, в котором содержится текст электронного письма.

Wait        Флаг ожидания конца отправки письма. Если >0, то дальнейший код имиджа будет выполнен только после отправки письма. Первый вариант функции не ожидает окончания отправки.


Возвращаемое значение

Второй вариант функции возвращает результат отправки письма. Если результат не равен 0, то значит возникла одна из следующих ошибок:

1 – не найден файл

4 – ошибка при передаче данных письма

5 – ошибка при подключении к почтовому серверу

6 – ошибка при получении ответа от сервера


Пример

HStream:=CreateStreamCreateStream ("FILE",~FileName,"CREATE")

r := WritelnWriteln (~HStream,"<send_email>")

r := Writeln(~HStream,"<receiver>"+~receiver+"</receiver>")

r := Writeln(~HStream,"<sender>"+~sender+"</sender>")

r := Writeln(~HStream,"<title>"+~title+"</title>")

r := Writeln(~HStream,"<text>"+~text+"</text>")

r := Writeln(~HStream,"</send_email>")

r := Writeln(~HStream,"<attach>"+~AttachFileName+"</attach>")

r:=CloseStreamCloseStream (~HStream) 


SendMail(~FileName)


см. Системные функцииSystem_function

Created with the Personal Edition of HelpNDoc: Produce electronic books easily