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

cleanduo 东软集团产品经理 2002-05-10 11:16:09

我的想法是在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
%>

...全文

32 点赞收藏 8

写回复

8 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

cleanduo 2002-05-10

to 网络自由人::

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

回复赞

freezwy 2002-05-10

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

回复赞

cmsoft 2002-05-10

你上传到虚拟空间上试吧

回复赞

mhp 2002-05-10

还可以用DLL外挂模块。

回复赞

ssm1226 2002-05-10

smtp默认的就成

★★★一起去淋雨★★★

回复赞

freezwy 2002-05-10

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

回复赞

funboy88 2002-05-10

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

回复赞

freezwy 2002-05-10

主要的是你要在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=xx@xx.net 抄送
'cdo.Bcc=xx@sf.net密送
'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
%>

回复赞