Delphi World - Как автоматически отправлять E-mail
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Как автоматически отправлять E-mail


Сидят два компьютерщика, пива напились, рассуждают:
- Все-таки Ленин мировой мужик был!
- Почему это?
- Сейчас бы почту в темноте читали...

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

Вам потребуется компонент 'TNMSMTP'. Этот компонент входит в поставляется с Delphi 4 и 5 и его можно найти на закладке 'Fastnet'.


procedure TForm1.Button1Click(Sender: TObject);
begin
  with NMSMTP1 do
  begin
    Host := 'smtp.mailserver.com';
    UserID := '___Nikolay';
    Connect;

    PostMessage.FromAddress := 'DelphiWorld@mail.ru';
    PostMessage.ToAddress.Text := 'bestprogramming@mail.ru';
    PostMessage.Body.Text := 'Текст письма';
    PostMessage.Subject := 'Тема письма';
    SendMail;
  end;
end;

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования