Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > проблема с отправкой письма TidSMTP

Автор: Stakanych 30.1.2006, 16:18

Простейший код отправки простейшего письма. Подскажите, пожалуйста, почему при попытке соединения с сервером (мэйлрушным) выдается ошибка "Connection Gracefully Closed". После просмотра похожих тем на форуме вставил в код соединение с поп3 сервером, с ним соединение проходит. Смтп - нет.

Код


procedure TForm2.Button1Click(Sender: TObject);
begin
idSMTP1.Host:='smtp.mail.ru';
idSMTP1.Port:=25;
idSMTP1.Password:='1111';
idSMTP1.Username:='olga_*****';
Form1.idPOP31.Username:=Form1.Edit1.Text; //îïðåäåëÿåì èìÿ ïëîüçîâàòåëÿ
Form1.idPOP31.Password:=Form1.Edit2.Text; //îïðåäåëÿåì ïàðîëü
Form1.idPOP31.Host:=Form1.Edit3.Text;//àäðåñ ê ñåðâåðó
Form1.idPOP31.Connect();
Form1.idPOP31.CheckMessages;

idSMTP1.Connect();

idMessage1.From.Text:='[email protected]';
idMessage1.Recipients.EMailAddresses:=Edit1.Text;
idMessage1.Subject:=Edit2.Text;
idMessage1.Body.Text:=Memo1.Text;

try
idSMTP1.Send(idMessage1);
except
ShowMessage('Îøèáêà, ïèñüìî íå îòïðàâëåíî');
end;
idSMTP1.Disconnect;
Form1.idPOP31.Disconnect;

end;

Автор: Stakanych 30.1.2006, 17:57

люди, горю просто! подскажите плз в чем может быть проблема

Автор: Snowy 30.1.2006, 19:26

Код рабочий. Проблема в mail.ru
Там очень строгие правила с отправкой.

Автор: Girder 2.2.2006, 14:42

http://forum.vingrad.ru/index.php?showtopic=49623&view=all

Автор: CaNIBaLchik 9.2.2006, 16:00

проверяй на аунтификацию перед отправкой

Автор: nekras 9.2.2006, 18:56

У меня такая же беда, выдает ошибку "Socket Error # 10060 Connection timed out"

Код


...
idSMTP1.Host:='smtp.rambler.ru';    
idSMTP1.Port:=25;    
idSMTP1.Username:='_mik_';    
idSMTP1.Password:='*********';    
idSMTP1.Connect();    
...

не может быть на Рамблёре ограничений?
не в Username ли дело?
может ИСЧО какая корявка?
Подскажите, век помнить буду smile