CDO.Message編碼問題

Question

我們目前正在更改郵件傳遞系統，使其僅使用UTF-8 。

發件人名稱似乎有問題，當電子郵件包含非ASCII字符（希伯來語）時，主題和正文可以正常顯示，但是發件人名稱（顯示在我的gmail帳戶中）變為- ?????? 。

有一行代碼：

myMail.BodyPart.Charset = "UTF-8"

所以我認為應該有一些類似的代碼：

myMail.SenderName.Charset = "UTF-8"

但是我似乎找不到合適的代碼來使用，假設這樣做可以解決問題。

Answer 1

這對我有用： http : //www.powerasp.net/content/new/sending_email_cdosys.asp

Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message") 

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "myserver"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

ObjSendMail.Configuration.Fields.Update

ObjSendMail.To = to_email
ObjSendMail.Subject = subject
ObjSendMail.From = from_email

'ObjSendMail.TextBody = mensaje   'tipo texto
ObjSendMail.HTMLBody = mensaje   'tipo html

ObjSendMail.TextBodyPart.Charset = "utf-8"  'support symbols á ñ ¡

ObjSendMail.Send

Set ObjSendMail = Nothing

Answer 2

這對我有用。

Set iMsg = CreateObject("CDO.Message")

With iMsg
    .BodyPart.Charset = "utf-8"
End With