送分了,一个用ASP调用CDONTS组件发送简单邮件的问题????

[cleanduo]

我的想法是在ASP里边调用IIS自带的组件CDONTS实现基本的邮件发送功能,不需要接收,其实应该代吗很简单,但是当我接收时,就是收不到,为什么??请帮我解决一下了!!多谢多谢!

下边是简要代码:
<%
Dim objMsg, strFrom, strTo, strSubject, strBody,lngImportance,result,intRet
strFrom = Trim(Request.Form("txtFrom"))
strTo = Trim(Request.Form("txtTo"))
strSubject = Trim(Request.Form("txtSubject"))
strBody = Trim(Request.Form("txtMessage"))
lngImportance = Trim(Request("optImportance"))

Set objMsg = Server.CreateObject("CDONTS.NewMail")

objMsg.From = strFrom
objMsg.To = strTo
objMsg.Subject = strSubject
objMsg.Cc = strCc
objMsg.Body = strBody
objMsg.Importance = lngImportance
objMsg.Send

result="Your mail"&strSubject&" have already been sent to"&strTo

Set objMsg = Nothing

response.write result
%>

[freezwy]

主要的是你要在SMTP中，设定IP为本机的就可以了。
如果配置后收不到信件有两个可能，一是信传输速度比较慢，二是你使用了防火墙
我给你一个CDO的过程，以后直接调用
<%
sub sendmail(fromwho,towho,subject,body)
dim cdo
set cdo=server.createobject("cdonts.newmail")
cdo.From=fromwho
cdo.To = towho
cdo.Subject =subject
cdo.Body =body
cdo.MailFormat=0
'说明是以MIME发送
cdo.BodyFormat=0
'可以包含html代码
cdo.Importance=0
'邮件的优先级别0-1-2
'cdo.cc=[e-mail] 抄送
'cdo.Bcc=[e-mail]密送
'cdo.AttachFile "" 附件
cdo.Send
Set cdo=Nothing
end sub
sub sendattachmail(fromwho,towho,subject,body,attachfile)
dim cdo
set cdo=server.createobject("cdonts.newmail")
cdo.From=fromwho
cdo.To = towho
cdo.Subject =subject
cdo.Body =body
cdo.MailFormat=0
cdo.BodyFormat=0
cdo.Importance=0
cdo.AttachFile attachfile
cdo.Send
Set cdo=Nothing
end sub
%>

[funboy88]

只要你把SMTP装起来过后，采用默认的设置就可以实现发邮件的功能的，
但是你在本机没法调试的，你需要上传到网上服务器上去调试，你的邮件才能发送得出去的，具体是什么造成这样的，我也说不清，我以前也是遇到这个问题的，问朋友才知道这个，程序是没有错的，主要是因为你在本机调试才发不出去，你把它放到网上支持SMTP的服务器上就可以的，

[freezwy]

司令说的有些偏颇，在个人拨号上网的机器上配置后完全可以实现发信功能，你要确保你的SMTP服务已经启动，邮件监控已经关闭，机器的TCP/IP协议安装完成，同时确保25端口开放。

[ssm1226]

smtp默认的就成



★★★一起去淋雨★★★

[mhp]

还可以用DLL外挂模块。

[cmsoft]

你上传到虚拟空间上试吧

[freezwy]

CDONTS发送邮件确实简单，但是你必须要配置你的SMTP服务器才可以的。

[cleanduo]

to 网络自由人::

怎么配置??是不是缺省的设置就可以了,我也简单的看了一下,基本上没动什么.
而且,我也发布到IIS上了