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

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

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

Автор: sibstate 7.2.2011, 11:17

Всем доброго времени суток! Ребята у меня такая проблемка, написал почтового клиента, тестировал его в домашних условиях все отлично работало и без ошибок, а как проект привез на работу при тех же параметрах программа не смогла даже подключиться к серверу(имя сервера правильное!!!!! Дома через этот же сервак отправляет) !!! В чем проблема не понимаю smile

Исходник прилогать не буду ибо программа работает по стандарту через indy smtp 9 версии и idmessage.

Помогите пожалуйста разобраться, в чем может быть проблема? И пожалуйста объясните как решить ее.

Автор: casinosoftguru 7.2.2011, 12:32

Если одна и та же программа по разному работает на разных компьютерах, то либо разница в сетевых настройках этих компьютеров, днс серверах (на работе суровый сисадмин например), либо ошибка в 15ой строке. smile

Автор: MetalFan 7.2.2011, 13:12

Зачем было создавать две темы?

По поводу проблемы - соединение с серваком по SSL/TLS?
Если да, то возможно не хватает или не подходят библиотеки OpenSSL

Автор: sibstate 7.2.2011, 15:38

Объясните как сделать так чтобы заработало. Вариант с днс пробовал, письма определяются как спам.

Автор: MetalFan 7.2.2011, 17:36

Автор сам с собой похоже разговаривает...
Ну приятно поговорить!

Автор: sibstate 9.2.2011, 14:14

SSL или TLS я не зная, я можно сказать не ориентируюсь в этом. Только начал работать с сетью.

Вот исходник моей программы.

Код


   try
      SMTP.Host:='mail.hc.ru';
      SMTP.Port:=25;
      SMTP.Username:= '[email protected]';
      SMTP.Password:='password';
      SMTP.AuthenticationType:=atLogin;
      SMTP.Connect;

      try
         SMTP.Send(IdMessage); // отправка письма на сервер
     except
      on E: Exception do
          //Не отправленно
      end;
      
   finally
      SMTP.Disconnect; // разрыв соединения
   end;

SMTP.Connect; Здесь вылетает ошибка 10060

Цитата

Что за 15я строка?

И еще там аутлук нормально работает.

Помогите пожалуйста бездарю smile

Вот как сделать так что бы все соединялось и отправлялось??

Автор: Mach3 17.2.2011, 08:37

Аналогичная проблема..
Через одного провадера отправляется, через другого- нет..
Ноут один и тот же, настройки те же. =((
Подскажите, для маил или для яндекса обязательно наличие SSL ??
------
Проверил еще на трех провайдерах..
только на одном прога выдает "connect time out"
Прога- одна кнопка и следующий код:

Код


procedure TForm1.Button1Click(Sender: TObject);
 var
mssg,recip:string;
i:integer;
begin
if form1.IdSMTP1.Connected=false then begin
form1.IdSMTP1.Host := 'smtp.qip.ru';
form1.IdSMTP1.Username:='[email protected]';
form1.IdSMTP1.Password:='password';
form1.IdSMTP1.Connect(15000);
 end;
mssg:='Test QiP SMS from ArtemKTV';
form1.idmessage1.Subject:='QiP Server';
form1.idmessage1.Recipients.EMailAddresses:='[email protected]';
form1.idmessage1.From.Address:='[email protected]';
form1.idmessage1.Body.Text:=mssg;
if form1.IdSMTP1.Connected=True then
form1.IdSMTP1.Send(form1.idmessage1);
form1.idSMTP1.Disconnect;
end;

Автор: Mach3 17.2.2011, 11:08

Проблему решил.. =))
год назад спамфильтр заблокировал 25 порт..
4ый звонок за день провайдеру, вынудил его поглядеть на траблу.. =))
всем спасибо..

Автор: MetalFan 17.2.2011, 11:26

Mach3, некоторые провайдеры блокируют smtp протокол... сталкивался с таким.