Поиск на сайте
Главная Журнал Форум Wiki DRKB Страны мира


Как автоматически отправлять E-mail

В следующем примере E-mail отправляется автоматически сразу после нажатия кнопки.

ЗАМЕЧАНИЕ: Вам потребуется компонент 'TNMSMTP'. Этот компонент входит в поставляется с Delphi 4 и 5 и его можно найти на закладке 'Fastnet'.

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      NMSMTP1.Host := 'smtp.mailserver.com';
      NMSMTP1.UserID := 'h.abdullah';
      NMSMTP1.Connect;
    
      NMSMTP1.PostMessage.FromAddress := 'hasan@excite.com';
      NMSMTP1.PostMessage.ToAddress.Text := 'someone@xmail.com';
      NMSMTP1.PostMessage.Body.Text := 'Текст письма';
      NMSMTP1.PostMessage.Subject := 'Тема письма';
      NMSMTP1.SendMail;
    end;

 

 


Основные разделы сайта
ASP.NET
C# .NET
C / Visual C++
С++ Builder
Visual Basic
VB.NET
Ассемблер
Delphi
Java
Java Script


 

Реклама