godaddy空间使用CDO发送中文邮件例子

我先啰嗦几句...国内备案实在太麻烦，不得以，翻墙出去！而godaddy支持支付宝交易，对我们来说购买超级方便！而口碑也不错！所以选择了godaddy！真正购买之后，的确不错，空间速度跟国内无异，只是

我先啰嗦几句...

国内备案实在太麻烦，不得以，翻墙出去！

而godaddy支持支付宝交易，对我们来说购买超级方便！

而口碑也不错！所以选择了godaddy！

真正购买之后，的确不错，空间速度跟国内无异，只是ftp慢点！

买域名也送空间送邮箱，买空间则送大邮箱！实在太爽了！

不过gd的空间不支持我们常用的email组件，如Jmail或者ASPmail，只支持CDO以及CDONTS

dear，从来没搞过，摆渡之后，得到CDO发信代码！

能发信了，但是悲剧的事情是，中文竟然无法识别！

信不过摆渡，于是股沟。股沟终于有答案，并且成功发送中文邮件

稍加修改，代码如下.....

emailbady="资料：
"
emailbady=emailbady "姓名 - "&Request.Form("name")&"
"
emailbady=emailbady "住址 - "&Request.Form("Address")&"
"
emailbady=emailbady "出生年月 - "&Request.Form("Birth")&"
"
emailbady=emailbady "电话 - "&Request.Form("phone")&"
"
emailbady=emailbady "电子邮件 - "&replace(Request.Form("email"),"@","#")&"
"
'emailbady=emailbady "电子邮件 - "&Request.Form("email")&"
"这里要注意，如果邮件主题带有@将发不出去！要替换掉
emailbady=emailbady "其他问题或意见 - "&Request.Form("question")&"
"
emailbady=emailbady "提交时间 - "&Request.Form("Time")&"
"
on Error Resume Next
Set objMail = Server.CreateObject("CDO.Message")
Set objConfig = Server.CreateObject ("CDO.Configuration")
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="relay-hosting.secureserver.net"
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/languagecode") = "0x0804"
objConfig.Fields.Update()
Set objMail.Configuration = objConfig
objMail.Subject = "资料"
objMail.From = "account@youdomin.com" '这个发件人好重要，用126或163等的都不可以，你可以随便用xxx@godaddy.com或在godaddy处注册的域名都可以。
objMail.To = "account@youdomin.com"
objMail.BodyPart.ContentTransferEncoding = "7bit"
'如果使用多國語言時，才要設定 Charset，这里超级重要，一定要声明编码类型，否则就是乱码，这里就是乱码的原因！
objMail.BodyPart.Charset = "utf-8"

objMail.HTMLBody = emailbady
'objMail.AddAttachment(http://xxxxxx/xxxx.xxx) '或者其他任何正确的url,包括http,ftp,file等等。这个是成功后跳转网址
objMail.Send
Response.Write "邮件发送成功！
"&emailbady
if Err <> 0 then
response.write ""&Err.Description&""
response.end
end if




有网站用到在线发邮件，由于狗爹的空间不允许用第