CDOSYS и Unicode в поле from - PullRequest
Новая
       33

CDOSYS и Unicode в поле from

0 голосов
/ 05 марта 2010

У меня есть код ниже, и я пытаюсь установить поле from, чтобы разрешить Unicode. В настоящее время в моем почтовом клиенте я получаю "??".

Строка темы и любой контент правильно отображают Юникод. И, глядя на MSDN, свойство должно быть "urn:schemas:httpmail:from".

Кто-нибудь решил эту проблему? 

Dim AC_EMAIL : AC_EMAIL = "test@test.com"
Dim AC_EMAIL_FROM : AC_EMAIL_FROM = "测试 <test@test.com>"
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

1 Ответ

0 голосов
/ 01 апреля 2010

Нашли обходную работу. Не самая красивая, но это работает. По сути, я преобразовал строку в Quoted-Printable. 

.Fields("urn:schemas:httpmail:from") = "=?utf-8?Q?=E6=8F?= <test@test.com>"
...