关于用SMTP做邮件外发的问题（asp）

[fjian37]

情况是这样的，我的系统是win2000 server，现想用smtp做邮件外发的程序，不知如何下手，请高手指点，或用其它的方法

[mars2000]

装个邮件服务器，ok

[zyhowe]

<%'发送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
%>

[fjian37]

谢谢上面，我来试试，是不是必须装组件呀，cdonts在哪有的装，还是在哪里下

[qiushuiwuhen]

cdonts默认2000已装，若重新安装，windows组件

[fjian37]

谢谢，在哪里能看得到