vb6 CDO utf8 charset
東東.BodyPart.Charset = "UTF-8"