Функция для отправки письма по электронной почте. Никаких проверок не делается, функция работает в асинхронном режиме и не "тормозит" скрипт. Письмо в формате HTML или обычный текст, поддерживаются защищённые соединения, можно прикладывать файлы (атачи).

 

Синтаксис

procedure SendEmail(sHost: string; iPort: integer; sUserName, sPass, sFullEmail: string; bSSL: boolean; sToList, sSubject: string; sMessageText: string; iMsgStyle: integer; sAttachedFiles: string);

 

Параметры и возвращаемые значения

Параметр

Тип

Значение

sHost

string

IP или доменное имя почтового сервера (SMTP);

iPort

integer

номер порта, по которому будет происходить подключение;

sUserName

string

имя пользователя;

sPass

string

пароль на почтовый ящик;

sFullEmail

string

адрес электронной почты пользователя, полностью;

bSSL

boolean

использовать защищённое SSL/TLS соединение или нет. Большинство публичных почтовых служб (GMail, Mail.ru, Яндекс.Почта и т.п.) используют зашифрованное соединение;

sToList

string

список адресов получателей через запятую;

sSubject

string

тема письма, текстовая строка;

sMessageText

string

текст письма;

iMsgStyle

integer

тип письма: 0 — обычный текст (plain text), 1 — HTML;

sAttachedFiles

string

список приложенных файлов (attached files), разделённых вертикальной чертой (символ "|"). Если файлов нет, указать пустую строку.

 

Следует иметь в виду, что процедура не возвращает никаких значений, успешное было выполнение или нет — узнать нельзя. Также, отправка происходит в асинхронном режиме, мгновенно, без пауз и остановок, для скорости.

 

Пример

begin
  SendEmail('smtp.yandex.ru', // SMTP server
            25, // Port number
            'mailbox@yandex.ru', // User name 
            'mysecretpass', // Mailbox password 
            'mailbox@yandex.ru', // Full mailbox name 
            true, // Use SSL/TLS or no 
            'john@mycompany.com,helen@hilton.com, emma@spicegirls.net', // Recipient emails list
            'Test message from MSL, SendEmail function', // Email subject
            'My best friend gave me the best advice,' + CRLF + // Letter text body
            'He said each day''s a gift and not a given right.' + CRLF +
            'Leave no stone unturned, leave your fears behind...' + CRLF +
            'And try to take the path less traveled by.' + CRLF +
            'That first step you take is the longest stride.' + CRLF + CRLF +
            '<i><b>If Today Was Your Last Day</b></i> (Nickelback)',
            1, // Letter format. 0 - plain text, 1 - HTML
            'C:\MyFolder\cover1.jpg|' + // Attached files list (optional), separated by "|" symbol  
            'C:\Users\Toshiba\Pictures\postmessagefrommsl.png');
end.

Результат работы скрипта

[13:46:18] (Run "SendEmail"): Время выполнения скрипта: 3 мс

[13:46:18] (Run "SendEmail"): Скрипт выполнен успешно.

 

Ещё посмотреть

mSendEmail