Как закодировать тему и отправителя в MIME (RFC2047) для писем с не-ASCII символами в Delphi и Pascal?

Delphi , Интернет и Сети , E-mail

В современной электронной почте часто возникает необходимость отправлять письма с темами и именами отправителей, содержащими не-ASCII символы (например, кириллицу, акцентированные буквы или специальные символы). Некоторые почтовые сервисы, такие как web.de, требуют обязательного кодирования таких строк согласно стандарту RFC2047. В этой статье мы рассмотрим, как правильно реализовать такое кодирование в Delphi и Free Pascal.

Проблема не-ASCII символов в заголовках email

Согласно стандартам электронной почты (RFC5322), заголовки сообщений (такие как Subject и From) должны содержать только ASCII-символы. Для включения символов из других кодировок используется MIME-кодирование по стандарту RFC2047.

Проблема возникает, когда вы пытаетесь отправить письмо с темой или именем отправителя на русском языке:

Smtp.FromName := 'Иван Петров';
Smtp.Subject := 'Важный документ';

Без должного кодирования такие заголовки могут быть неправильно интерпретированы почтовыми серверами и клиентами.

Решение с использованием библиотеки ICS

Как указано в обсуждении, библиотека Internet Component Suite (ICS) предоставляет функции для MIME-кодирования заголовков. Основная функция - HdrEncodeInLine из модуля OverbyteIcsMimeUtils.

Пример кодирования темы письма:

uses
  OverbyteIcsMimeUtils;

procedure SendEmailWithEncodedSubject;
var
  Smtp: TSmtpCli;
begin
  Smtp := TSmtpCli.Create(nil);
  try
    Smtp.Subject := HdrEncodeInLineEx('Тестовая тема с русскими символами', 
      SpecialsRFC822, 'Q', CP_UTF8, 72, False);
    // Настройка остальных параметров SMTP
    Smtp.Send;
  finally
    Smtp.Free;
  end;
end;

Параметры функции HdrEncodeInLineEx:

1. Исходная строка для кодирования
2. Набор специальных символов (SpecialsRFC822 для email-заголовков)
3. Тип кодирования: 'Q' для quoted-printable или 'B' для base64
4. Кодовая страница (CP_UTF8 для Unicode)
5. Максимальная длина строки перед переносом
6. Флаг, указывающий на необходимость переноса строк

Проблема с кодированием поля From

Как отмечено в обсуждении, кодирование поля From (HdrFrom) может работать иначе. Вот пример правильного подхода:

Smtp.FromName := HdrEncodeInLineEx('Иван Петров', SpecialsRFC822, 'Q', CP_UTF8, 72, False);
Smtp.From := 'ivan@example.com';

Альтернативное решение без ICS

Если вы не используете библиотеку ICS, можно реализовать кодирование вручную. Вот пример функции для quoted-printable кодирования:

function QPEncodeHeader(const S: string): string;
const
  QPAllowedChars = ['!', '#', '$', '%', '&', '''', '*', '+', '-', '/', '0'..'9', 
                   '=', '?', '^', '_', '`', 'a'..'z', 'A'..'Z', '|', '~'];
var
  I: Integer;
  Ch: Char;
  HexStr: string;
begin
  Result := '';
  for I := 1 to Length(S) do
  begin
    Ch := S[I];
    if CharInSet(Ch, QPAllowedChars) and (Byte(Ch) < 128) then
      Result := Result + Ch
    else
    begin
      HexStr := Format('=%2.2X', [Ord(Ch)]);
      Result := Result + HexStr;
    end;
  end;

  // Добавляем префикс кодировки
  if Result <> S then
    Result := '=?UTF-8?Q?' + Result + '?=';
end;

Использование:

Smtp.Subject := QPEncodeHeader('Тестовая тема');

Советы по работе с MIME-кодированием

1. Всегда используйте UTF-8 в современных приложениях
2. Для коротких строк предпочитайте quoted-printable ('Q'), для длинных - base64 ('B')
3. Убедитесь, что ваша SMTP-библиотека не выполняет двойное кодирование
4. Тестируйте отправку писем на разные почтовые сервисы
5. Для сложных случаев рассматривайте использование готовых библиотек, таких как ICS или Synapse

Заключение

Правильное MIME-кодирование заголовков email с не-ASCII символами - важный аспект работы с электронной почтой в Delphi. Использование функций из библиотеки ICS или собственной реализации гарантирует, что ваши письма будут корректно обрабатываться всеми почтовыми серверами и клиентами. Особое внимание следует уделять кодированию не только темы письма, но и имени отправителя, так как некоторые почтовые сервисы особенно строги к этому полю.

Создано по материалам из источника по ссылке.

Context описывает методы кодирования не-ASCII символов в заголовках email с использованием стандарта RFC2047 для Delphi и Pascal.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: E-mail ::