[Помогите!] Smtp

[=PaLeTiZaToR=]

доброго времени суток всем. Потребовалось отправить письмо на почту из delphi. Думал проблем не возникнет, кинул компоненты, накидал код а он не работает. Думаю ну ладно, возьму из старого проэкта (там 100% все работало) - и этот код не работает .. запустил старый проэкт, таже ошибка при отправке письма. Кто может подсказать, что изменилось ?

idsmtp1.Host:='smtp.yandex.ru';
idsmtp1.port:=587;
idsmtp1.username:='*********';
idsmtp1.Password:='********';
idMessage1.CharSet:='koi8-r';
idmessage1.Body.Text:=memo1.Text;
idmessage1.From.Text:='*****@yandex.ru';
idmessage1.Recipients.EMailAddresses:='******@mail.ru';
idmessage1.Subject:='тема';
idsmtp1.Connect;
idsmtp1.Send(idmessage1);
idsmtp1.Disconnect;
sbutton1.Enabled:=false

[Zo_Om4eG]

Тебе обязательно smtp? Если нет, то могу дать код, отправляет по-другому. А вообще в твоем коде ошибка скорей всего из-за порта. Он должен быть 25. idsmtp1.port:=25;

[=PaLeTiZaToR=]

Цитата: Сообщение от Zo_Om4eG Тебе обязательно smtp? Если нет, то могу дать код, отправляет по-другому. А вообще в твоем коде ошибка скорей всего из-за порта. Он должен быть 25. idsmtp1.port:=25;

Нет не обязательно. Яндекс и по этому порту работает. Если дадите код , буду очень признателен

Добавлено через 5 часов 23 минуты
Спасибо Zo_Om4eG , очень выручил... все работает.
Но все же очень интересно узнать, почему перестал работать smtp