用CDO.Message发繁体邮件，收到一直是乱码，等待结帖!
Sub sendMail(from,tomail,subject,body)
Dim ObjSendMail
Dim iConf
Dim Flds
Set ObjSendMail = Server.CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
'**** Path below may need to be changed if it is not correct
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
Flds.Update
Set ObjSendMail.Configuration = iConf
'ObjSendMail.BodyPart.ContentTransferEncoding = "7bit"
'ObjSendMail.BodyPart.Charset = "big5"
ObjSendMail.To = tomail
ObjSendMail.Subject = subject
ObjSendMail.From = from
ObjSendMail.HTMLBody = body
ObjSendMail.Send
Set ObjSendMail = Nothing
End Sub
问题点数：100、回复次数：9Top
1 楼slayerbb（名字被抢了）回复于 2006-03-04 12:36:00 得分 20
ObjSendMail.BodyPart.Charset = "gb2312"Top
2 楼ybfqlyq（Rossy|http://blog.ybfq.com）回复于 2006-03-04 14:24:05 得分 20
'ObjSendMail.BodyPart.Charset = "big5"為什麼要注釋這行呢？？不注釋行不？Top
3 楼orrin（orrin）回复于 2006-03-09 23:05:35 得分 0
因为用了，也是乱的。Top
4 楼orrin（orrin）回复于 2006-03-11 00:55:40 得分 0
大家快帮帮我吧，不是所有的字不能显示，只有一部分字不能正常显示。。奇怪。。Top
5 楼wanglh100（悍卫钓鱼岛）回复于 2006-03-11 13:23:06 得分 40
ObjSendMail.BodyPart.Charset = "big5"要的
或者用'ObjSendMail.BodyPart.Charset = "utf-8"试试Top
6 楼orrin（orrin）回复于 2006-03-11 22:58:18 得分 0
上面这位大侠，你说的我都试过了，big5/utf-8结果是全乱，没有一个正确了，什么都不用还能有30%正确显示的汉字。Top
7 楼orrin（orrin）回复于 2006-03-12 14:28:28 得分 0
还有谁知道？Top
8 楼sxsgssgs（.net新手）回复于 2006-03-12 14:42:06 得分 20
ObjSendMail.BodyPart.Charset = "gb2312"Top
9 楼orrin（orrin）回复于 2006-03-12 16:36:01 得分 0
当然不成了
Top
