Функция для отправки письма по электронной почте. Никаких проверок не делается, функция работает в асинхронном режиме и не "тормозит" скрипт. Письмо в формате HTML или обычный текст, можно прикладывать файлы (атачи).
Главное отличие от функции SendEmail в том, что используется SMTP сервер, настройки которого указаны в самом MyChat Server, поэтому в функцию не нужно передавать хост, порт, логин/пароль, настройки SSL и прочее.
procedure mSendEmail(sToList, sSubject: string; sMessageText: string; iMsgStyle: integer; sAttachedFiles: string);
Параметр |
Тип |
Значение |
|---|---|---|
sToList |
string |
список адресов получателей через запятую; |
sSubject |
string |
тема письма, текстовая строка; |
sMessageText |
string |
текст письма; |
iMsgStyle |
integer |
тип письма: 0 — обычный текст (plain text), 1 — HTML; |
sAttachedFiles |
string |
список приложенных файлов (attached files), разделённых вертикальной чертой (символ "|"). Если файлов нет, указать пустую строку. |
Следует иметь в виду, что процедура не возвращает никаких значений, успешное было выполнение или нет — узнать нельзя. Также, отправка происходит в асинхронном режиме, мгновенно, без пауз и остановок, для скорости.
begin
mSendEmail('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.[14:31:04] (Run "mSendEmail"): Время выполнения скрипта: 3 мс
[14:31:04] (Run "mSendEmail"): Скрипт выполнен успешно.