[Casper-Hacker]

Сообщение от lohack

Есть форма!!! На ней 2 edit или memo и одна кнопка!!! Нужно чтобы при нажатии кнопки эти два текста отправлялись на определённое (указаное мною) мыло !!!
Всем заранее спасибо !!!

Добавим в uses:
IdMessageClient, IdSMTP
Далее:

Код:

var
  M: TIdMessage;
  NAS: TIdSMTP;
  str:string;
begin
  M:= TIdMessage.Create(Form1);
  str:=Edit1.Text; //Текст сообщения
  M.Body.Add(str);
  M.From.Text := 'microsoft@mail.ru'; //Ваша почта
  M.Recipients.Add;
  M.Recipients.Items[0].Text := 'support@microsoft.com'; //Куда кидаем почту
  M.Subject := 'Ваша тема'; //Тема
  NAS.AuthenticationType := atLogin; //Логинимся не изменять
  NAS.Host := 'smtp.mail.ru'; //Сервер отправки примеры: smtp.mail.ru , smtp.yandex.ru , smtp.ramber.ru
  NAS.Username := 'dddssss@mail.ru'; //Ваша почта
  NAS.Password := '***********'; //Ваш пароль
  NAS.Connect();
  if NAS.Connected then
  begin
  NAS.Send(M);
  end;
  NAS.Disconnect;
end;

И помните при дизассемблировании программы ваш пароль высветиться Дерзайте