返回列表 上一主題 發帖

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

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-3-26 09:54 | 只看該作者

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

各位大大好：

小弟使用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 傳送郵件

  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

  13.       objEmail.From = "[email protected]"                '寄件者（網域必須存在）
  14.       objEmail.To = "[email protected]"                      '收件者
  15.       objEmail.Subject = "CDO郵件測試"                    '郵件主旨
  16.       objEmail.HTMLBody = "郵件本文"   'HTML郵件內文
  17.       objEmail.Send
  18.       Set objEmail = Nothing
  19. End Sub
複製代碼
收藏 分享

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
2#
發表於 2015-3-26 14:42 | 只看該作者
謝謝各位大大。
小弟己找到解釋方式
語法加註
.Bodypart.Charset = "Big5"
.HTMLBodypart.Charset = "Big5"


感恩各各位大大！

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題