Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Отправка письма: unicode-содержимое будет отображено вопросительными знаками.  (Прочитано 7203 раз)
0 Пользователей и 1 Гость смотрят эту тему.
malor
Опытный

ru
Offline Offline

« : 24-11-2011 07:30 » 

Код: (Delphi)
    IdSMTP1.Host := Host_Server_SMTP;
    IdSMTP1.Port := Port_Server_SMTP;
    IdSMTP1.Username := SenderUserName;
    IdSMTP1.Password := SenderPassword;
    IdMessage1.From.Address := SenderAddress;
    IdMessage1.From.Name := 'Отчет за неделю';
    IdMessage1.Subject := ExtractFileName(FileNameAttach);
    IdMessage1.Body.Text := 'Здравствуйте. ';
    IdMessage1.ContentType := 'text/plain; charset=UTF-16';

    IdMessage1.Recipients.Add;
    IdMessage1.Recipients.Items[0].Text := RecipientAddress;
    TIdAttachmentFile.Create(IdMessage1.MessageParts, FileNameAttach);

Строчкой
IdMessage1.ContentType := 'text/plain; charset=UTF-16';
не отделаться.
С ней слова
Отчет за неделю
превращаются в иероглифы. А цель - чтоб IdMessage1.Body.Text выглядело кириллицей.

Как сделать, чтоб тело письма по-русски?

Цитата
CharSet is a String property that indicates the character set expected in message contents. CharSet can contains one of the official names for character sets as identified in IdCharsetNames.
Character set information may also be supplied as an argument in the content type for individual items in the MessageParts collection. The value in CharSet will be updated using
the content type argument value when message properties are read in ProcessHeaders.

Declaration
property MessageParts: TIdMessageParts;
Summary
List of message parts for the message.
Description
MessageParts is a TIdMessagePartsList used to store the TIdMessagePart components that make up the message. MessageParts can contain two TIdMessagePart descendants:
TIdText and TIdAttachment.
MessageParts is used when IsEncoded is set to True (on sending), or NoDecode is set to false for receiving.

Delphi XE
« Последнее редактирование: 24-11-2011 07:34 от malor » Записан
x77
Модератор

ro
Offline Offline
Пол: Мужской
меняю стакан шмали на обратный билет с Марса.


« Ответ #1 : 24-11-2011 07:35 » 

какая версия Indy и в какой версии Delphi используется?
Записан

malor
Опытный

ru
Offline Offline

« Ответ #2 : 24-11-2011 07:39 » 

gsIdVersion = '10.5.7';
Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #3 : 24-11-2011 10:04 » 

м... Subj желательно кодировать
типа
Код:
$subj = '=?UTF-8?B?'.base64_encode(iconv("windows-1251","utf-8","АНКЕТА с сайта")).'?=';
Или здесь о чем-то другом?
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #4 : 24-11-2011 10:24 » new

Еще замечу, что RFC также требует длинные строки разбивать на части и каждую часть кодировать отдельно. Также отдельно можно кодировать каждое слово или фразу.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines