CDONTS不能发邮件,请高手指点[付我的代码] 在线等待...

[teams]

服务器是申请的固定IP,????

<%
On Error Resume Next
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
If Err.Number = 0 Then
'err.clear
Response.Write("出错了")
Response.End
end if
objCDOMail.From = "[e-mail]"
objCDOMail.To = "[e-mail]"
objCDOMail.CC = "[e-mail]"
objCDOMail.Subject = "asdfasdfasdf"
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body = "F_body"
objCDOMail.Send
Set objCDOMail = Nothing

%>

[caoshangfei]

什么错误信息？？邮件都停留在哪个文件夹？

[teams]

找到原因了,我的机子是邮件服务器.