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

Уже нашел в чем была проблема.
Просто данные выпуливались слишком быстро и SMTP сервер не успевал их разбирать. Добавление простой паузы решило всю проблему.

Тестировал на таком примере:
Program SMTP2test;
Uses smtp2;
Var     
iinteger;
        
fromrcptsubjtext string;
Begin
    ShowForm
;
    
i:=FormAddString('Начинаем отправку письма...');
    
smtp2.account('lib_test''123456'); // Логин и пароль от MAIL.RU ящика
    
smtp2.auth_mode(1); // 1 - значит, что SMTP сервер требует авторизации
    
smtp2.set_pause(500); // Пауза при ожидании ответа от сервера
    
from:='[email protected]'// От кого
    
rcpt:='[email protected]'// Кому
    
subj:='Test msg'// Заголовок письма
    
text:='Hi there! Hello dolly! Kisa kuku!'// Тело письма
    
i:=smtp2.send('smtp.mail.ru'2525fromrcptsubjtext); // Высылаем
    
RepaintDelay(-1);
End
Как видно из исходника, за ходом отправки теперь можно наблюдать из режима форм.
Вложения
Тип файла: zip Lib_smtp2.zip (2.9 Кб, 1097 просмотров)
(Offline)
 
Ответить с цитированием
Эти 3 пользователя(ей) сказали Спасибо odd за это полезное сообщение:
AVIZO (28.07.2009), Deport (12.11.2010), Pyth_ON (30.07.2009)