0

以下のコードを取得しました。from フィールドを設定して Unicode を許可しようとしています。現在、メール クライアントで「??」が表示されます。

件名とすべてのコンテンツに 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
4

1 に答える 1

0

回避策を見つけました。最もきれいではありませんが、機能します。基本的に、文字列を Quoted-Printable に変換しました。

.Fields("urn:schemas:httpmail:from") = "=?utf-8?Q?=E6=8F?= <test@test.com>"
于 2010-04-01T15:41:18.960 に答える