- Код: Выделить всё
var
MIME: TMimemess;
AddTextMess: TMimepart;
Priority: TMessPriority;
begin
Priority := MP_high;
MIME := TMimemess.Create;
AddTextMess := MIME.AddPartMultipart('mixed', nil);
MIME.AddPartText(TextMess.Lines, AddTextMess);
MIME.Header.Priority := Priority;
MIME.Header.From := From.Text;
MIME.Header.ToList.Add(SendTo.Text);
MIME.Header.Subject := Subject.Text;
MIME.Header.Organization := 'TEST';
MIME.Header.CharsetCode := synachar.CP1251;
MIME.EncodeMessage;
SendToRaw(From.Text, SendTo.Text, IP.Text, MIME.Lines, Login.Text, Password.Text);
MIME.Destroy;
end;
1. Кодировка не соответствует действительности. Приходит вот с этим Subject: =?ISO-8859-5?Q?=C0=A6=C1=5F=C0=A6=C1=5F=C1=5F_=C0=A6?=.
В сети встречал вопросы на тему кодировок. Ну без исходников. Тут даже вроде делать нечего, а не работает.
зы
И еще один вопрос: чем сейчас пользоваться для разработки приложений для сети? Есть indy, synapse, lnet. Но все они как я понял уже давно не обновлялись.
)