try this (it must work, if you have correct content in TMP widestring 
variable...):

htmlPart := Msg2.AddPart(MimePart);
HTMLContent := TTntStringList.Create; (unicode support string list)
try
HTMLContent.Text := tmp; (tmp is widestring)
htmlContent.SaveToStreamEx(htmlPart.DecodedLines, CP_UTF8);
htmlPart.Primary := 'text';
htmlPart.Secondary := 'html';
htmlPart.Description := 'HTML text';
htmlPart.Disposition := 'inline';
htmlPart.CharsetCode := UTF_8;
htmlPart.EncodingCode := ME_QUOTED_PRINTABLE;
htmlpart.TargetCharset := UTF_8;
htmlPart.EncodePart;
htmlPart.EncodePartHeader;
finally
HTMLContent.Free;
end;


--
Lukas Gebauer.

E-mail: [EMAIL PROTECTED]
WEB: http://www.ararat.cz/synapse - Synapse Delphi and Kylix TCP/IP 
Library



-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public

Reply via email to