CDOSYS y Unicode en el campo de
Tengo el código a continuación, y estoy tratando de configurar el campo desde para permitir Unicode. Actualmente en mi cliente de correo electrónico obtengo "??".
La línea de asunto y cualquier contenido muestra el Unicode correctamente. Y mirando el MSDN, la propiedad debería ser"urn:schemas:httpmail:from"
.
¿Alguien resolvió este problema?
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