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

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 175 • TDictionary Custom Sort 6 234 • Fast Watermark Sources 6 040 • 3D Designer 8 938 • Sik Screen Capture 6 361 • Patch Maker 6 785 • Айболит (remote control) 6 764 • ListBox Drag & Drop 5 641 • Доска для игры Реверси 96 261 • Графические эффекты 6 984 • Рисование по маске 6 265 • Перетаскивание изображений 5 159 • Canvas Drawing 5 530 • Рисование Луны 5 231 • Поворот изображения 4 777 • Рисование стержней 3 378 • Paint on Shape 2 634 • Генератор кроссвордов 3 521 • Головоломка Paletto 2 810 • Теорема Монжа об окружностях 3 622 • Пазл Numbrix 2 368 • Заборы и коммивояжеры 3 048 • Игра HIP 2 005 • Игра Go (Го) 1 931 • Симулятор лифта 2 290 • Программа укладки плитки 1 994 • Генератор лабиринта 2 446 • Проверка числового ввода 2 129 • HEX View 2 463 • Физический маятник 2 082

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

Похожие по теме исходники