2.8w+
社区成员
- 主页
关于用SMTP做邮件外发的问题（asp）
情况是这样的，我的系统是win2000 server，现想用smtp做邮件外发的程序，不知如何下手，请高手指点，或用其它的方法
...全文
请发表友善的回复…
发表回复
fjian37 2002-08-01
谢谢，在哪里能看得到
qiushuiwuhen 2002-07-31
cdonts默认2000已装，若重新安装，windows组件
fjian37 2002-07-31
谢谢上面，我来试试，是不是必须装组件呀，cdonts在哪有的装，还是在哪里下
zyhowe 2002-07-31
<%'发送Email
Sub SendEmail(FromStr,ToStr,SubjectStr,BodyStr)
'FromStr： 发件人地址,ToStr：收件人地址,SubjectStr：邮件的主题,BodyStr：邮件的内容
dim mobj
Set mobj=Server.Createobject("CDONTS.NewMail")
mobj.BodyFormat=0 '邮件以超文本发送
mobj.MailFormat=0
mobj.From=FromStr
mobj.To=ToStr
mobj.Subject=SubjectStr
mobj.Body=BodyStr
mobj.AttatchFile server.mappath("../a.asp") '发送附件
mobj.Send
set mobj=nothing
set BodyStr=nothing
End Sub
%>
Sub SendEmail(FromStr,ToStr,SubjectStr,BodyStr)
'FromStr： 发件人地址,ToStr：收件人地址,SubjectStr：邮件的主题,BodyStr：邮件的内容
dim mobj
Set mobj=Server.Createobject("CDONTS.NewMail")
mobj.BodyFormat=0 '邮件以超文本发送
mobj.MailFormat=0
mobj.From=FromStr
mobj.To=ToStr
mobj.Subject=SubjectStr
mobj.Body=BodyStr
mobj.AttatchFile server.mappath("../a.asp") '发送附件
mobj.Send
set mobj=nothing
set BodyStr=nothing
End Sub
%>
mars2000 2002-07-31
装个邮件服务器，ok