Неправильно отображаются русские символы SMTP

@Илья1302 · Регистрация: 06.05.2018

Author24 — интернет-сервис помощи студентам

Доброго времени суток.
IdMessage1.Subject:='Ознакомление';

Неправильно отображаются русские символы SMTP

Отправляю сообщение, заголовок отображается белибурдой. Как исправить?

@volvo · 09.06.2019, 18:54

Pascal

uses ..., IdCoderHeader;
 
// ...
 
  // IdMessage1.Subject:='Ознакомление';
  IdMessage1.Subject := '';
  IdMessage1.ExtraHeaders.Values['Subject'] :=
    EncodeHeader(UTF8Encode('Ознакомление'), '', 'Q', 'UTF-8');

По крайней мере, в основных веб-мордах почты нормально отображается.

@Илья1302 · 09.06.2019, 18:59 **[ТС]**

Что-то у меня не вышло

@volvo · 09.06.2019, 19:04

Я, конечно, опять все не так делаю. Это Яндекс-почта:

Это - gmail:

Не знаю, что и где ты открываешь, поэтому больше помочь ничем не могу.

@Илья1302 · 09.06.2019, 19:15 **[ТС]**

В мозиле открываю обычную майловскую почту, на gмаил таже бурда.

Pascal

IdSMTP1.Host := 'smtp.mail.ru'; 
  IdSMTP1.Port := 465;
 
  IdSMTP1.Username := s1; 
  IdSMTP1.Password := s2; 
  IdSMTP1.UseTLS := utUseImplicitTLS;
  IdSMTP1.AuthType:=satDefault;
 
  IdMessage1.Clear();
  IdMessage1.From.Address:=s1;
 
   try
  IdMessage1.Recipients.EMailAddresses := s; 
   IdMessage1.Subject := '';
  IdMessage1.ExtraHeaders.Values['Subject'] :=EncodeHeader(UTF8Encode('Ознакомление'), '', 'Q', 'UTF-8');
 idmessage1.IsEncoded:=true;
  IdMessage1.ContentType := 'multipart/alternative';
 
 // imgpart.ContentID := 'dbase.jpg'; 
 // imgpart.DisplayName := 'dbase.jpg';
 
 txtpart := TIdText.Create(IdMessage1.MessageParts);
  txtpart.ContentType := 'text/plain';
    Application.ProcessMessages;
  txtpart := TIdText.Create(IdMessage1.MessageParts);
  txtpart.ContentType := 'multipart/related; type="text/html"';
    Application.ProcessMessages;
  htmpart := TIdText.Create(IdMessage1.MessageParts, nil);
  htmpart.ContentType := 'text/html; charset=UTF-8'; 
  htmpart.Body.Add('<html>');
  htmpart.Body.Add('<head>');
  htmpart.Body.Add('</head>');
  htmpart.Body.Add('<body><h1></h1>');
  htmpart.Body.Add(Memo1.Text + '</body>');
  htmpart.Body.Add('</html>');
  htmpart.ParentPart := 1;
   imgpart := TIdAttachmentFile.Create(IdMessage1.MessageParts, 'photo.jpg'); 
  imgpart.ContentType := 'image/jpeg';
  imgpart.ContentDisposition := 'inline';
 
  IdSMTP1.Connect();
  IdSMTP1.Send(Form1.IdMessage1);
  IdSMTP1.Disconnect();
 
    except

@Илья1302 3 / 3 / 1 Регистрация: 06.05.2018 Сообщений: 95
		1
	Неправильно отображаются русские символы SMTP 09.06.2019, 16:23. Показов 789. Ответов 4 Метки нет (Все метки) Доброго времени суток. IdMessage1.Subject:='Ознакомление'; Отправляю сообщение, заголовок отображается белибурдой. Как исправить? 0

@Илья1302 3 / 3 / 1 Регистрация: 06.05.2018 Сообщений: 95
	09.06.2019, 18:59 [ТС]	3
	Что-то у меня не вышло Миниатюры 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	09.06.2019, 19:04	4
	Я, конечно, опять все не так делаю. Это Яндекс-почта: Это - gmail: Не знаю, что и где ты открываешь, поэтому больше помочь ничем не могу. 0

	09.06.2019, 19:15