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

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

Форум программистов > Delphi: Для новичков > Как из ДЛЛ отправить сообщение на e-mail?

Автор: ZLOvar 19.9.2010, 20:14

Доброго времени суток. Появилась необходимость отправить сообщение из динамической библиотеки, собственно, как это сделать? smile

Всем заранее спасибо за ответ!

Автор: bems 19.9.2010, 20:36

Примерно так же, как и из єкзешника. А в чем проблема возникает?

Автор: ZLOvar 19.9.2010, 20:56

bems,
Ну я обычно пользуюсь компонентом из Indy для отправки сообщений, а в длл их ведь не засунить? Или я не прав?

Автор: xkor 19.9.2010, 23:16

мда, вот к чему приучает кидание компонентиков на формы мышкой.., народ и подумать боится ручками подключить нужный модуль и написать создание и инициализацию компонента...

Автор: bems 20.9.2010, 03:51

Ах вот что это за сообщение. В длл можно сделать датамодуль, но лучше просто вручную создавать нужные компоненты, как советует xkor

Автор: ZLOvar 20.9.2010, 08:46

Цитата(bems @ 20.9.2010, 03:51

)

вручную создавать нужные компоненты

А без компонентов никак? Кстати, значок smile

не просто так прилеплен smile

Автор: Snowy 20.9.2010, 08:56

Код

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;

Автор: Akella 20.9.2010, 16:53

Цитата(ZLOvar @ 20.9.2010, 08:46

)

Кстати, значок smile не просто так прилеплен smile

Неужели в интернете НЕТ примеров???? Да уж...

Автор: ZLOvar 20.9.2010, 18:45

Цитата(Akella @ 20.9.2010, 16:53

)

Неужели в интернете НЕТ примеров???? Да уж...

Времени нет искать.
Snowy, вам огромное спамибо за пример! РАБОТАЕТ! smile

Автор: Akella 25.9.2010, 12:39

Цитата(ZLOvar @ 20.9.2010, 18:45

)

Времени нет искать.

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