Почта в Delphi

[Антон Иванчин]

Пытаюсь отправить почту из программы.
Выдаёт ошибку 5.7.0
Подскажите в чём может быть проблема?
Текст программного кода ниже:

procedure TF_Sp_Np.SpeedButton60Click(Sender: TObject);
begin
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Host:= 'SMTP.sama.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='foodlab@samara.ru';
IdSMTP1.Password:='********';
IdSMTP1.Connect(5000);
if IdSMTP1.Connected=false
then
 begin
  FnFormInform('Результат соединения','Не подключено');
 end
else
 begin
  FnFormInform('Результат соединения','Подключено');
 end;
end;
procedure TF_Sp_Np.SpeedButton62Click(Sender: TObject);
begin
IdSMTP1.Disconnect;
end;

procedure TF_Sp_Np.SpeedButton61Click(Sender: TObject);
begin
IdMessage1.Body.Text:='123';
IdMessage1.From.Address:='foodlab@samara.ru';
IdMessage1.From.Name:='foodlab@samara.ru';
IdMessage1.Recipients.EMailAddresses:='anton@mail.ru';
IdMessage1.Subject:='456';
IdMessage1.Date:=Date;
IdSMTP1.Send(IdMessage1);
end;

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

адрес SMTP сервера реально отличается от адреса домена?

IdSMTP1.Host:= 'SMTP.sama.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='foodlab@samara.ru';

А почтовиком (любой почтовой программой) почта отправляется нормально?
Тип аутентификации не SSL ?

[Антон Иванчин]

Тип аутентификации обычный - не SSL
Да адрес SMTP действительно отличается от Домена
Почта в Windows Live - свободно отправляется

[Serge_Bliznykov]

тогда ничего не скажу.

попробуйте
почитать и попробовать примеры по ссылкам:
http://programmersforum.ru/showthread.php?t=280390
http://programmersforum.ru/showthread.php?t=240682

избавляйтесь от логики - одна кнопка - установить коннект,
другая кнопка - отправить, третья - закрыть коннект.

попытайтесь сделать всё вместе в одном потоке кода:
установить коннект
отправить письмо
закрыть коннект.

если не поможет - то смотрите, какие возникают ошибки.

поставьте простенький почтовый клиент (да хоть тот же The BAT!)
не исключено, что Windows LIVE общается с почтовым сервером по другом протоколу IMAP, например).

в любом случае, выводите в лог протокол общения, смотрите, какие ошибки возникают.

[Антон Иванчин]

а как организовать вывод в log файл протокола общения?

[Пепел Феникса]

а к к коду ошибки текста нету?
ибо это не полный код ошибки.

возможно сервер таки требует SSL, через STARTTLS(так называемый explicit SSL).

[Serge_Bliznykov]

почитайте - Работа с электронной почтой с использованием компонентов Indy

[Антон Иванчин]

Я нашёл ошибку.
Вместо указанного SMTP, который кстати фигурирует почему-то в WINDOWS LIVE поставил тот что в адресе моей почты. И заработало.
Благодарю за помощь

[Антон Иванчин]

Просьба помочь!
Письмо у меня теперь отправляется, только без ТЕМЫ. Подскажите - где может быть ошибка!?

 IdMessage1.CharSet := 'windows-1251';
  IdMessage1.ContentType := 'text/plain';
  IdMessage1.Body.Text:=Memo_Body_Text.Text;;
  IdMessage1.From.Address:=Edit_From_Address.Text;
  IdMessage1.From.Name:='foodlab@samara.ru';
  IdMessage1.Recipients.EMailAddresses:=Edit_Recipients_EMail.Text;
  IdMessage1.Subject:=Edit_Subject.Text;
  IdMessage1.Date:=Date;
  F_Sistema.IdSMTP1.Send(IdMessage1);

[Антон Иванчин]

Разобрался с тем что ТЕМА сообщения не пустая, но теперь написана она АБРАКАДАБРОЙ - Фраза:"Готовность результатов испытаний продукции" - ПРЕВРАЩАЕТСЯ в "Ãîòîâíîñòü ðåçóëüòàòîâ èñïûòàíèé ïðîäóêöèè"
При этом текст письма отображается вполне корректно.
Скорее всего конечно ошибка в кодировке.