CDOSYS и Unicode в поле from
У меня есть код ниже, и я пытаюсь установить поле from, чтобы разрешить Unicode. В настоящее время в моем почтовом клиенте я получаю «??».
Строка темы и любой контент показывают Unicode правильно. И, глядя на MSDN, свойство должно быть"urn:schemas:httpmail:from"
.
Кто-нибудь решил эту проблему?
Dim AC_EMAIL : AC_EMAIL = "[email protected]"
Dim AC_EMAIL_FROM : AC_EMAIL_FROM = "测试 <[email protected]>"
Dim strSubject : strSubject = """测试"" testing testing"
set oMessage = WScript.CreateObject("CDO.Message")
With oMessage
.BodyPart.charset = "utf-8" 'unicode-1-1-utf-8
.Fields("urn:schemas:httpmail:from") = AC_EMAIL_FROM
.Fields("urn:schemas:httpmail:to") = AC_EMAIL
.Fields("urn:schemas:httpmail:subject") = strSubject
.Fields.Update
.Send
End With
Set oMessage = Nothing