- 帖子
- 231
- 主題
- 55
- 精華
- 0
- 積分
- 293
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- KEELUNG
- 註冊時間
- 2010-7-24
- 最後登錄
- 2018-8-28
|
[發問] CDO MESSAGE 傳送EMAIL時，對 方收到出現中文亂碼。
各位大大好：
小弟使用hinet
並透過cdo傳送信息
至對方。可是對方收到
信息時中文會出現亂碼
例如：
subject:CDO 郵件測試
HTMLBODY:郵件本文
對方收到信息如下
subject:CDO ?
HTMLBODY:?
感恩大大！- Sub sendmail()
- Dim objEmail As Object
- Const SMTPSERVER = "msa.hinet.net" '使用 msa.hinet.net 傳送郵件
- Set objEmail = CreateObject("CDO.Message") '建立 CDO 物件
- With objEmail.Configuration.Fields
- .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
- .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPSERVER
- .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
- .Update
- End With
- objEmail.From = "[email protected]" '寄件者（網域必須存在）
- objEmail.To = "[email protected]" '收件者
- objEmail.Subject = "CDO郵件測試" '郵件主旨
- objEmail.HTMLBody = "郵件本文" 'HTML郵件內文
- objEmail.Send
- Set objEmail = Nothing
- End Sub
|
|
發表於 2015-3-26 09:54
| 
