CDONTS邮件发送出错！！急，在线等！！！

[blueprogrammer]

下面是我写的邮件发送程序：
<%
Dim objNewMail
Dim strTo '收件人Email
Dim strSubject '信件主题
Dim txtBody '信件正文

With Request
strTo = "[e-mail]"
strSubject = "NewMail"
txtBody = "This is the content!"
End With

Set objNewMail = Server.CreateObject("CDONTS.NEWMAIL")
With objNewMail
'.From = "[e-mail]"
.To = strTo
.Subject= strSubject
.Body = txtBody
End With

on error resume next
objNewMail.Send
Response.write Err.description'并没有提示出错

Set objNewMail = nothing
%>
发送没有提示任何的出错信息，可是收件信箱却没有收到任何的信件，请各位帮忙，谢谢！

[wangjsxz]

有没有注册CDONTS组件啊!

[diya]

看看本机是否有安装smtp server

[zhangking]

如何使用CDONTS来发送电子邮件？

我们可以在IIS4下使用CDONTS来完成。首先要确认是否安装了SMTP服务（OPTIONPACK缺省安装时是包括SMTP服务的）。在SMTP服务安装后，system32目录下有一个CDONTS.DLL文件。然后，我们就可以来通过ASP发送电子邮件了，很简单哦：
<%
　　DimMailObject
　　SetMailObject=Server.CreateObject("CDONTS.NewMail")
MailObject.Send"[e-mail]","[e-mail]","Mysubject","Mytext"
　　%>
　　是不是很简单？

如果想发送附件，也可以：
　　<%
　　DimMailObject
　　SetMailObject=Server.CreateObject("CDONTS.NewMail")

　　att_file="c:\chunfeng\iloveu.txt"
　　f_name="iloveu.txt"

　　MailObject.From="[e-mail]"
　　MailObject.To="[e-mail]"

　　MailObject.Subject="主题"
　　MailObject.Body="内容"
　　MailObject.AttachFileatt_file,f_name

　　MailObject.Send
　　%>

再看一例，可直接引用：
Dim CDONTSObj, MessageBody
' 声明变量
Set CDONTSObj = Server.CreateObject("CDONTS.NewMail")
' 创建CDONTS 对象
CDONTSObj.To = "[e-mail]"
' 发送地址
CDONTSObj.From = "[e-mail]"
' 寄信人地址
CDONTSObj.cc = "[e-mail],[e-mail]"
' 抄送,可用逗号分开
MessageBody = "Sending a email using ASP was never so easy ! "
' 信件内容
CDONTSObj.Subject = "Send a Email"
' 信件主题
CDONTSObj.Body = MessageBody
' 把信件内容的指定给对象
CDONTSObj.Send
' 发送邮件
Set CDONTSObj = nothing
' 清空

[Cooly]

取消.From的注释

<%
Dim objNewMail
Dim strTo '收件人Email
Dim strSubject '信件主题
Dim txtBody '信件正文

With Request
strTo = "[e-mail]"
strSubject = "NewMail"
txtBody = "This is the content!"
End With

Set objNewMail = Server.CreateObject("CDONTS.NEWMAIL")
With objNewMail
.From = "[e-mail]"
.To = strTo
.Subject= strSubject
.Body = txtBody
End With

on error resume next
objNewMail.Send
Response.write Err.description'并没有提示出错

Set objNewMail = nothing
%>

[Cooly]

取消.From的注释

<%
Dim objNewMail
Dim strTo '收件人Email
Dim strSubject '信件主题
Dim txtBody '信件正文

With Request
strTo = "[e-mail]"
strSubject = "NewMail"
txtBody = "This is the content!"
End With

Set objNewMail = Server.CreateObject("CDONTS.NEWMAIL")
With objNewMail
.From = "[e-mail]"
.To = strTo
.Subject= strSubject
.Body = txtBody
End With

on error resume next
objNewMail.Send
Response.write Err.description'并没有提示出错

Set objNewMail = nothing
%>

[dicklee1214]

本身程序没错，不过CDONTS.NEWMAIL组件再通过局域网代理上网的地方使用常常会遇到这个问题，推荐用jamil组件发邮件]

[Jackforid2003]

我刚刚解决这个问题。。可以检查一下服务器上的smtp服务。。。。
中继是不是在“仅除下表以外”
安全选项中是不是添加了iuser_****这个用户？这个试iis的匿名登陆账户

[Jackforid2003]

哦，还有检查一下自己的c:\inetpub\mailroot目录。。这个就是你的本地smtp服务的物理路径