Переделанная версия либы Lib_smtp. Автор: odd.
Простейший пример для сервера 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:='lib_test@mail.ru'; // от кого to:='odd-coder@yandex.ru'; // кому 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.
|