Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Функция по отправке писем странно работает. IdSMTP, С M-Daemon - нет, с остальными - да 
:(
    Опции темы
Сергей Плоткин
Дата 20.6.2005, 15:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 8.8.2004

Репутация: нет
Всего: нет



Есть крохотная функция, использующая Indy:
Код


uses
   ..., IdSmtp, IdMessage, ...

function SendMail(Host:String;AdressTo:String;Subject:String;Text:String;FileAttach:String):Boolean;
var
  SMTP:TIDSMTP;
  Attach:TIDAttachment;
  Y:Integer;
  Msg:TIDMessage;
begin
  Y:=0;
  Result:=True;
  SMTP:=TIDSMTP.Create(nil);
  Msg:=TIdMessage.Create(nil);
  Try
    Try
      SMTP.Host:=Host;
      Msg.ReplyTo.EMailAddresses:='[email protected]';
      Msg.From.Name:='Test Sender';
      Msg.Recipients.EMailAddresses:=AdressTo;
      Msg.Subject:=Subject;
      Msg.Body.Text:=Text;
      If FileExists(FileAttach) then
        begin
          Attach:=TIDAttachment.Create(Msg.MessageParts, FileAttach);
          Y:=1;
        end;
      SMTP.Connect;
      SMTP.Send(Msg);
    except
      Result:=False;
    end;
  finally
    SMTP.Disconnect;
    If Y=1 then
    Attach.Free;
    SMTP.Free;
    Msg.Free;
  end;
end;


Отсылал письма через SMTP-сервера Easy SMTP Server, Spectral SMTP Server и Advanced Mail Sender - все работает, письма отправляются.

Однако, поставили M-Daemon - и через него письма не идут. Функция успешно коннектится с ним, отправляет письмо и возвращает True, но сам M-Daemon даже ухом не ведет и в его списке переданное письмо даже не появляется. smile А, например, если посылать через наш M-Daemon письма, используя Outlook, Outlook Express или The Bat!, письма через него успешно идут.

Двойственное ощущение:
1) раз с другими SMTP-серверами работает, значит ошибок в коде нет
2) раз M-Daemon с другими почтовиками работает, значит настроен он правильно

Подскажить, где копать, пожалуйста. Все-таки есть какие-то подводные камни в коде или же скорее всего неправильно настроен SMTP-сервер (M-Daemon)?

P.S. Тесты программы с этой функцией и других почтовиков проводились в равных условиях, на одном и том же компьютере.
PM MAIL   Вверх
Snowy
Дата 21.6.2005, 10:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484



Вот так отправляться тоже скорее всего не будет, но и не будет врать, что все Ок.
Код

uses    
   ..., IdSmtp, IdMessage, ...    

function SendMail(Host:String;AdressTo:String;Subject:String;txt:String;FileAttach:String):Boolean;
var    
  SMTP:TIDSMTP;    
  Msg:TIDMessage;    
begin    
  SMTP:=TIDSMTP.Create(nil);    
  SMTP.Host:=Host;
  Msg:=TIdMessage.Create(nil);    
  Msg.ReplyTo.EMailAddresses:='[email protected]';    
  Msg.From.Name:='Test Sender';    
  Msg.Recipients.EMailAddresses:=AdressTo;    
  Msg.Subject:=Subject;    
  Msg.Body.Text:=Text;    
  If FileExists(FileAttach) then    
     TIDAttachment.Create(Msg.MessageParts, FileAttach);
  try
    SMTP.Connect;    
    SMTP.Send(Msg);
    Result:=true;
  except 
    Result:=False;
  end;
  SMTP.Disconnect;    
  SMTP.Free;    
  Msg.Free;    
end;

Возможно демон хочет что-то еще, кроме номера порта.
Что-то его видимо не устраивает.
Попробуй отправить что-нить врцчнуе через телнет. Что он на это скажет?
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »


 




[ Время генерации скрипта: 0.0870 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.