Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Интернет и сети \ E-mail \ Отправить письмо, чтобы пользователь об этом не знал (D7)

Отправить письмо, чтобы пользователь об этом не знал (D7)

// Кинуть на форму компонент IdSMTP1

...

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdMessageClient, IdSMTP, StdCtrls, idMessage, IdEMailAddress;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  M: TIdMessage;
begin
  M := TIdMessage.Create(Form1);

  M.Body.Add('Типа первая строчка собщения');
  M.Body.Add('Типа вторая строчка собщения');
  M.From.Text := '"Рустик" <boris@uacity.com>'; //отправитель
  M.Recipients.Add;
  M.Recipients.Items[0].Text := '"Тест" <antohha@ukr.net>'; //Получатель
  M.Subject := 'Ну чо? потестим? =)'; //Тема письма

  IdSMTP1.AuthenticationType := atLogin;
  IdSMTP1.Host := 'uacity.com';
  IdSMTP1.Username := 'boris';
  IdSMTP1.Password := '1234'; // - ну свой пароль я те не выдам :-Р
  IdSMTP1.Connect();
  if IdSMTP1.Connected then
  begin
    IdSMTP1.Send(M);
  end;
  IdSMTP1.Disconnect;
end;

Название: Отправить письмо, чтобы пользователь об этом не знал (D7)
Дата публикации: 2004-09-02 (2736 Прочтено)

 
 

 

Page generation 0.023 seconds