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

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

Форум программистов > Delphi: Сети > письма по внутренней почте

Автор: Тиль 10.11.2008, 13:57

У нас тоит почтовый сервер в локальной сети. Пытаюсь с помощью Дельфи 7 отправить письмо-выдает ошибку. Что может быть не так?

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  IdSMTP1.Host:='tempsrv.oas';
  IdSMTP1.Port:=25;   
  IdSMTP1.Username:='Till';
  IdSMTP1.Password:='Qwerty12';
  IdSMTP1.AuthenticationType:=atLogin;
   with IdMessage1 do
     begin
      Body.Assign(Memo1.Lines);
      From.Name:='Тиль';  
      From.Address:= 'Till@tempsrv.oas';
      Recipients.EMailAddresses :='Till@tempsrv.oas'; 
      Subject := 'Привет!';
      end;
   IdSMTP1.Connect;
   try
   IdSMTP1.Send(IdMessage1);
   finally
   IdSMTP1.Disconnect;
   end;
showmessage('Сообщение отправлено.');
end;

end.

Ошибка :Software caused connection abort. Как будто не коннектится...что делать?

Автор: Matematik 10.11.2008, 20:38

Вроде код правильный.
Обычная почтовая программа с точно такими же параметрами отправляет?

Автор: Тиль 11.11.2008, 07:26

ага

Автор: Matematik 11.11.2008, 12:06

У меня, этот же код отправляет на smtp.mail.ru:25
Есть несколько вариантов
- блокирует файрвол или что-то подобное
- вы ошиблись и параметры отправли другие (например связь по защищенному каналу SSL/TLS или просто опечатка)
- глюк indy, имхо это маловероятно