Показать сообщение отдельно
Старый 24.07.2009, 22:44   #1
odd
Мастер
 
Аватар для odd
 
Регистрация: 06.09.2007
Адрес: Донецк, ДНР
Сообщений: 1,023
Написано 298 полезных сообщений
(для 713 пользователей)
Счастье Lib_smtp2 - Отправка почты с авторизацией

По просьбе 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 
iinteger;
    
fromtosubjtextstring;
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'2525fromtosubjtext);
    if (
i=1DrawText('Отправлено'55);
    else 
DrawText('Ошибка отправки'55);
    
RepaintDelay(5000);
End
Вложения
Тип файла: zip Lib_smtp2.zip (2.4 Кб, 460 просмотров)
Тип файла: zip SMTP2test.zip (3.0 Кб, 445 просмотров)

Последний раз редактировалось odd, 25.07.2009 в 16:46.
(Offline)
 
Ответить с цитированием
Эти 2 пользователя(ей) сказали Спасибо odd за это полезное сообщение:
AVIZO (25.07.2009), Pyth_ON (30.07.2009)