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