CDOSYS e Unicode no campo de
Eu tenho o código abaixo e estou tentando definir o campo from para permitir Unicode. Atualmente, no meu cliente de email, recebo "??".
A linha de assunto e qualquer conteúdo mostram o Unicode corretamente. E olhando para o MSDN, a propriedade deve ser"urn:schemas:httpmail:from"
.
Alguém resolveu esse 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