Не работает отправка на почту

[Painkiller_13]

Раньше использовал етот код по отправке даных на почту но последние время он перестал работать и програма зависает и в итоге видает ошибку
вот код

begin
idmessage1.Recipients.emailaddresses:='login@mail.ua'; 
idmessage1.From.Text:='login@mail.ua'; 
idmessage1.body.text:=Memo1.text; 
idmessage1.subject:=Edit1.text; 
idmessage1.ContentType:='text/plain'; 
/////
idSmtp1.AuthenticationType:=AtLogin; 
idSmtp1.username:='login'; 
idSmtp1.Password:='pass';
idsmtp1.Host:='smtp.mail.ru'; 
idsmtp1.Port:=25; 
idsmtp1.Connect(0); 
idSmtp1.Send(IdMessage1); 
idSmtp1.Disconnect; 
end;

Вот картинка ошибки
http://i056.radikal.ru/1108/09/ed979b24cffa.jpg

[Voody]

а если сделать idsmtp1.Connect; ?

[Painkiller_13]

Не всеравно тоже самое

[Voody]

Если попробовать почту на другом домене? mail.ru например

[eoln]

Сообщение от Painkiller_13

idmessage1.Recipients.emailaddresses:='login@mail.ua'; 
idmessage1.From.Text:='login@mail.ua'; 
...
idsmtp1.Host:='smtp.mail.ru';

Не могу проверить, но может хост не ru, а ua?
Кстати, какая версия Indy стоит? И какая ОС и IDE?

[Painkiller_13]

пробовал сменить на ua все тоже самое
стотит ХР SP3 и делфи 7
как я писал више скрипт до етого работал а тут вдруг
может кто то посоветует другой способ отправки на Email

[eoln]

Порт, видать, закрыт?

[Painkiller_13]

А можно поточней? насчет порта

[grafgrial]

может idsmtp1.Connect(1000); поставить
и еще пишешь idsmtp1.Host:='smtp.mail.ru'; а отправляешь с idmessage1.Recipients.emailaddresse s:='login@mail.ua';

[eoln]

Connect(2525)
Можно порт через telnet проверить (много всяких программ есть).

telnet
o smtp.mail.ru 2525

На ua я, например, достучаться не могу.