Цитата:
|
Сообщение от ApplicatiOn
отправляю на почту текст на русском языке, а приходят кракозябры... как кодировать текст в оптимальный для почты?
|
Советую так, с кодировками проблем не будет...
Код:
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;