[lohack]

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

[Dux]

Посмотрите этот пример:

ОТПРАВКА ПИСЬМА ЧЕРЕЗ MAIL.RU

[lohack]

Не получается ! Ошибка там !

[Dux]

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

Не получается ! Ошибка там !

Пример рабочий. Какая именно ошибка?

[lohack]

В фразе "with IdMessage1 do", курсор стоит после слова "IdMessage1"

[Drozh]

"Добавим на форму компоненты TMemo, TButton, TIdSMTP (вкладка Indy Clients) и TIdMessage (Indy Misc)" (с) ИМХО ты не добавил то что просили))) или переименовал, посылай текст ошибки а не положение курсора

[lohack]

Извиняюсь, прошляпил TIdMessage !!!
Ща попробую !!!

[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;

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

[Vovich]

Ребята если у кого получилось, поделитесь готовым примером ,т.е. проджектом

[PaHaNjkee]

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

Ребята если у кого получилось, поделитесь готовым примером ,т.е. проджектом

Вот, лови только не забудь свое мыло кому отправлять тему пароль и т.д указать