[發問] CDO MESSAGE 傳送EMAIL時，對 方收到出現中文亂碼。

dechiuan999

各位大大好：

小弟使用hinet
並透過cdo傳送信息
至對方。可是對方收到
信息時中文會出現亂碼
例如：
subject:CDO 郵件測試
HTMLBODY:郵件本文

對方收到信息如下
subject:CDO ?
HTMLBODY:?
感恩大大！

1. Sub sendmail()
   
2.       Dim objEmail As Object
   
3.       Const SMTPSERVER = "msa.hinet.net"                '使用 msa.hinet.net 傳送郵件
   
4. 
   
5.       Set objEmail = CreateObject("CDO.Message")      '建立 CDO 物件
   
6.       With objEmail.Configuration.Fields
   
7.             .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
   
8.             .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPSERVER
   
9.             .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
   
10.             .Update
    
11.       End With
    
12. 
    
13.       objEmail.From = "test.bay@msa.hinet.net"                '寄件者（網域必須存在）
    
14.       objEmail.To = "a101@ms8.hinet.net"                      '收件者
    
15.       objEmail.Subject = "CDO郵件測試"                    '郵件主旨
    
16.       objEmail.HTMLBody = "郵件本文"   'HTML郵件內文
    
17.       objEmail.Send
    
18.       Set objEmail = Nothing
    
19. End Sub

複製代碼

dechiuan999

謝謝各位大大。
小弟己找到解釋方式
語法加註
.Bodypart.Charset = "Big5"
.HTMLBodypart.Charset = "Big5"


感恩各各位大大！