faQ问题:使用CDONTS组件发送EMAIL到固定信箱,我怎么调试不成功呢?急!!!!
我要将网上定单发送到固定的接收方信箱中我写的不对么?
在前台页面:
<form name="form1" method="post" action="send.asp" onsubmit="Javascript:return check();">
<TABLE >
.....
</table>
send.asp:
<%
cust_name22=request("cust_name22")
cust_prov22=request("cust_prov22")
cust_addr22=request("cust_addr22")
cust_detail22=request("cust_detail22")
cust_post22=request("cust_post22")
cust_phone22=request("cust_phone22")
cust_fax22=request("cust_fax22")
cust_email22=request("cust_email22")
yueqi=request("yueqi")
order_name22=request("cust_name22")
order_style22=request("cust_style22")
order_number22=request("cust_number22")
order_memo22=request("cust_memo22")
others=request("others")
frommail=cust_email22
tomail = "xty211@163.com"
mailsubject = cust_name22&"的定单"
'mailbody ="管理员您好:""
mailbody="客户姓名:"&cust_name22&", 来自省份:"&cust_prov22&",地区"&cust_addr&",详细地址"&pust_detail22&",邮编" & chr(10)
'邮件内容格式(0)为html 否则为文本
MailType = 0
'发信部分
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = frommail
objCDOMail.To = tomail
objCDOMail.Subject = mailsubject
if MailType = 0 then
objCDOMail.BodyFormat = 1
'objCDOMail.MailFormat = 0
end if
'邮件紧急程度(1-5)
objCDOMail.Importance = 0
objCDOMail.Body = mailbody
objCDOMail.Send
Set objCDOMail = Nothing
on error resume next
if err=0 then
Response.Write "邮件发送成功!"
else
Response.Write "错误:"&Err.Description
end if
Response.End
%>
还少什么么?怎么就发不过去呢哪位有成功经验快给我说说了我急用谢谢了重奖!!!!