.BodyPart.CharSet="utf-8"
loMail = NEWOBJECT("Cdo2000", "Cdo2000.fxp") WITH loMail .cCharset = 'UTF-8' ...