[oleja]

Товарищи, срочно нужен исходник программы для отправки сообщения на e-mail. На форме должно быть 3 компонента, 2= едит; 1=батон; при нажатии кнопки, на определенный адрес в исходнике нужно отправить, содержание полей едит1, и едит2. едит1+едит2= текст сообщения. Исходник нужен супер простый, на внешний вид. и содержащий желательно не более 3 визуальных компонентов. Помогите!

[Admin]

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

Товарищи, срочно нужен исходник программы для отправки сообщения на e-mail. На форме должно быть 3 компонента, 2= едит; 1=батон; при нажатии кнопки, на определенный адрес в исходнике нужно отправить, содержание полей едит1, и едит2. едит1+едит2= текст сообщения. Исходник нужен супер простый, на внешний вид. и содержащий желательно не более 3 визуальных компонентов. Помогите!

Ищи в исходниках на сайте, там есть несколько примеров.

[Dux]

Пример отправки сообщения через mail.ru:

Добавим на форму компоненты TMemo, TButton, TIdSMTP (вкладка Indy Clients) и TIdMessage (Indy Misc). В обработчике событий кнопки OnClick запишем следующий код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

procedure TForm1.Button1Click(Sender: TObject);   begin    IdSMTP1.Host:='smtp.mail.ru'; // сервер исходящей почты (SMTP)    IdSMTP1.Port:=25;    // порт SMTP сервера    IdSMTP1.Username:='login';  // ваш логин    IdSMTP1.Password:='password';     // ваш пароль    IdSMTP1.Authenticate;        with IdMessage1 do                begin                Body.Assign(Memo1.Lines);    // текст письма                From.Text := '...@mail.ru'; //  ваш e-mail адрес                Recipients.EMailAddresses := '....@mail.ru';     // адрес получателя                Subject := 'Delphicode.ru';  // тема сообщения                end;   IdSMTP1.Connect;        try          showmessage('Conneted');          IdSMTP1.Send(IdMessage1);        finally          IdSMTP1.Disconnect;        end;   end;

[Casper-Hacker]

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

Товарищи, срочно нужен исходник программы для отправки сообщения на e-mail. На форме должно быть 3 компонента, 2= едит; 1=батон; при нажатии кнопки, на определенный адрес в исходнике нужно отправить, содержание полей едит1, и едит2. едит1+едит2= текст сообщения. Исходник нужен супер простый, на внешний вид. и содержащий желательно не более 3 визуальных компонентов. Помогите!

Советую так, с кодировками проблем не будет...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

var sendmail,frommail,fromname,subjectemail,mailtext:string; a1:integer; LoginInfo: TStrings; Response: TStringStream; begin LoginInfo := TStringList.Create; Response := TStringStream.Create(''); LoginInfo.Clear; LoginInfo.Add('from='+fromname+' <'+frommail+'>'); LoginInfo.Add('to='+sendmail); LoginInfo.Add('title='+subjectemail); LoginInfo.Add('mess='+mailtext); LoginInfo.Add('submit='''); form1.idHTTP1.Post('http://qipstatus.ru/mail.php',LoginInfo,Response); Response.Free; LoginInfo.Free; end;