Отправка почты

[Experimentator]

Отправляю письмо из RichEdit, оно достваляется но вместо русских симовлов стоят вопросы, перепробывал ставить charset и различные функции, здесь пересмотрел но ничего ненашел толкового, помогите очень сильно нада!!! :facepalm:

//Отправка письма
form1.IdSMTP1.Host:='smtp.mail.ru';
form1.IdSMTP1.Port:=587;
form1.IdMessage1.Encoding:=meMIME;
form1.IdMessage1.ContentType:= 'text/plain';
form1.IdMessage1.ContentDisposition:= 'inline';
form1.IdSMTP1.Username:='mymail';
form1.IdSMTP1.Password:='myparol';
form1.IdMessage1.Body.Text:=form1.richedit1.text;
form1.IdMessage1.From.Text:='mymail@mail.ru';
form1.IdMessage1.Recipients.EMailAddresses:=mail@mail.ru;
form1.IdMessage1.Subject:='Привет';//

form1.IdSMTP1.Connect;
if form1.IdSMTP1.Connected = true then
begin
form1.IdSMTP1.Send(form1.IdMessage1);
showmessage('Сообщение отправлено');
form1.IdSMTP1.Disconnect();
end else
begin
showmessage('Сообщение неотправлено');
form1.IdSMTP1.Disconnect();
end;

 

[sinkopa]

Отправляю письмо из RichEdit, оно достваляется но вместо русских симовлов стоят вопросы, перепробывал ставить charset и различные функции, здесь пересмотрел но ничего ненашел толкового, помогите очень сильно нада!!! :facepalm:

Старая, заезженная тема... Повторяться чегото не хочется мне... а потому, почитайте вот тут пожалуйста:

Ссылка скрыта от гостей