[Casper-Hacker]

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

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

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

Код:

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;