По просьбе
AVIZO выкладываю переделанную версию библиотеки
LIb_smtp.
Функции:
account(string login, string passwd) - Задать имя и пароль для доступа к серверу
login - имя пользователя
passwd - пароль
auth_mode(int i)
0 - сервер не требует авторизации
1 - использовать авторизацию (через имя и пароль, указанный функцией
account)
integer
send(string smtp, int port, string from, string to, string subject, string msg) - Отправить письмо
smtp - адрес почтового SMTP сервера
port - порт SMTP сервера (обычно 25, но бывает и другой)
from - от кого письмо (многие сервера не пропускают письма если FROM отличается от логина на сервер)
to - адрес получателя письма
subject - тема (заголовок) письма
msg - сам текст письма
Возвращает 1 - всё ОК или 0 - какая-то ошибка
Простейший пример для сервера MAIL.RU (остальные - аналогично):
Program SMTP2test;
Uses smtp2;
Var i: integer;
from, to, subj, text: string;
Begin
smtp2.account('lib_test', '123456'); // Логин и пароль от MAIL.RU ящика
smtp2.auth_mode(1); // 1 - значит, что SMTP сервер требует авторизации
from:='[email protected]'; // от кого
to:='[email protected]'; // кому
subj:='Test msg'; // Тема письма
text:='Hi there! Привет!'; // Текст письма
i:=smtp2.send('smtp.mail.ru', 2525, from, to, subj, text);
if (i=1) DrawText('Отправлено', 5, 5);
else DrawText('Ошибка отправки', 5, 5);
Repaint; Delay(5000);
End.