表单提交后,指定的邮箱收不到邮件
RT

代码如下:
<%
mailfrom=request.Form( "E_Mail ")
mailbody   = "快件服务的“时效、质量、安全”感到是否满意: "   &   Trim(Request.Form( "radiobutton1 "))   & " <br> "   &_
"不满意事实简述1: "   &   Trim(Request.Form( "shishi1 "))   & " <br> "   &_
"建议1: "   &   Trim(Request.Form( "jianyi1 "))   & " <br> "   &_
"客服部查询服务态度、查件回复速度、查询回复处理意见等评价如何: "   &   Trim(Request.Form( "radiobutton2 "))   & " <br> "   &_
"不满意事实简述2: "   &   Trim(Request.Form( "shishi2 "))   & " <br> "   &_
"建议2: "   &   Trim(Request.Form( "jianyi2 "))   & " <br> "   &_
"外务部收件人员的形象如何: "   &   Trim(Request.Form( "checkbox1 "))   & " <br> "   &_
"不满意事实简述3: "   &   Trim(Request.Form( "shishi3 "))   & " <br> "   &_
"建议3: "   &   Trim(Request.Form( "jianyi3 "))   & " <br> "   &_
"服务品质（专业知识、速度、态度等）上基于哪一种类型: "   &   Trim(Request.Form( "radiobutton3 "))   & " <br> "   &_
"不满意事实简述4: "   &   Trim(Request.Form( "shishi4 "))   & " <br> "   &_
"建议4: "   &   Trim(Request.Form( "jianyi4 "))   & " <br> "   &_
"我们现在合作的报价与服务质量相吻合吗: "   &   Trim(Request.Form( "radiobutton4 "))   & " <br> "   &_
"建议5: "   &   Trim(Request.Form( "jianyi5 "))   & " <br> "   &_
"满意: "   &   Trim(Request.Form( "checkbox2 "))   & " <br> "   &_
"不满意: "   &   Trim(Request.Form( "checkbox3 "))   & " <br> "   &_
"建议6: "   &   Trim(Request.Form( "jianyi6 "))   & " <br> "   &_
"公司名称: "   &   Trim(Request.Form( "com "))   & " <br> "   &_
"联系电话: "   &   Trim(Request.Form( "tel "))   & " <br> "   &_
"姓名: "   &   Trim(Request.Form( "name "))   & " <br> "   &_
"部门: "   &   Trim(Request.Form( "bumen "))   & " <br> "   &_
"职务: "   &   Trim(Request.Form( "zhiwu "))

set   mail=server.createobject( "cdonts.newmail ")   '建立邮件对象
mail.to= "zhibin19841029@163.com   "   '收件人的地址
mail.from=mailfrom   '发件人的地址
mail.Subject   = "客户满意度调查 "   '邮件标题
mail.body=mailbody   '邮件的内容
mail.send   '执行发送
set   mail=nothing   '释放对象
response.write( "邮件发送成功,谢谢您的参与！ ")
'response.End()
%>

------解决方案--------------------
cdonts是否设置好！
可以参考：
http://www.jzlab.com/html/2006-04/85.htm
------解决方案