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