15 мая "Исходники.РУ" отмечают 20-летие присутствия в сети!
Поздравляем всех причастных и неравнодушных с юбилеем сайта!
И огромное спасибо всем, кто был с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


Как автоматически отправлять 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;