Как заставить IndySMTP отправлять Subject кириллицей? [D7, Win2k, WinXP]
Rav © (2007-09-26 19:45:00)
Отправляю сообщение через Indy SMTP:
MailMsg := TIdMessage.Create(IdSMTP);
try
MailMsg.CharSet := 'Windows-1251';
MailMsg.ContentType := 'text/plain';
MailMsg.Subject := MailHeader;
MailMsg.From.Text := MailSender;
MailMsg.Recipients.EMailAddresses :=
CN_LISTRCP_EMAIL.AsString;
MailMsg.Body.Add(MessageStr);
if IdSMTP.Connected then IdSMTP.Disconnect;
IdSMTP.Host := MailServer;
IdSMTP.Username := MailUser;
IdSMTP.Password := MailPassword;
IdSMTP.Connect;
if IdSMTP.Connected then
begin
IdSMTP.Send(MailMsg);
IdSMTP.Disconnect;
end;
finally
MailMsg.Free;
end;
Проблема в том, что тело письма приходит как и положено,
кирилицей, а вот Subject, если подсунуть ему кирилицу, приходит
крякозябрами. Как победить? Help!
umbra (2007-09-27 11:51:00) [1]
MailMsg.Subject := '=?windows-1251?B?тема в Base64?=';
Наверх 
ЧАТ |
Орешник |
|
