CDOSYS und Unicode im Feld von
Ich habe den folgenden Code und versuche, das from-Feld so einzustellen, dass Unicode zulässig ist. Derzeit bekomme ich in meinem E-Mail-Client "??".
Die Betreffzeile und alle Inhalte zeigen den Unicode korrekt an. Und mit Blick auf die MSDN sollte die Eigenschaft sein"urn:schemas:httpmail:from"
.
Hat jemand dieses Problem gelöst?
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