2010-03-05 54 views
0

我已經得到了下面的代碼,並且我試圖設置from字段來允許Unicode。目前在我的電子郵件客戶端中,我收到「??」。CDOSYS和Unicode從字段

主題行和任何內容正確顯示Unicode。看着MSDN,該物業應該是"urn:schemas:httpmail:from"

任何人都解決了這個問題?

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 

回答

0

找到了解決辦法。不是最漂亮的,但它的工作原理。基本上我將字符串轉換爲Quoted-Printable。

.Fields("urn:schemas:httpmail:from") = "=?utf-8?Q?=E6=8F?= <[email protected]>"