asp使用cdo.message组件发送邮件

前段时间查资料总结写一个windows2003下不安装第三方组件发送邮件的程序，以下是写成函数的方式。以便于调用

<%
'函数说明:
'CDO.Message,在winnt和win2k下发送邮件要用CDONTS.NewMail，CDONTS.NewMail组件是需要注册，
'只要在服务器上运行命令行regsvr32 Cdonts.dll，在弹出的对话框中确定即可;2003下该组件无需手动注

册，系统已经自动注册了。
'windows2003使用CDONTS.NewMail服务还需安装有iis自带的SMTP须启动该服务方能发送邮件,并且设置防

火墙以便SMTP能正常启动服务

function Sendemail(Tostr)
Dim cm
Set cm=Server.CreateObject("CDO.Message")
'创建对象
cm.From="XXXX客户服务中心<service@XXXX.com>"
'设置发信人的邮箱
cm.To=Tostr
'设置收信人的邮箱
cm.Subject="欢迎您使用XXXX服务!"
'设定邮件的主题
'cm.TextBody="http://www.XXXX.com"
'上面是使用普通的文本格式发送邮件，只能是文字，不能支持html，所以这里不用

cm.HtmlBody=AD_html
'构建的html正文

'cm.AddAttachment Server.MapPath("test.zip")
'如果有需要发送附件的话就用上面的方法把文件附加进去。

cm.Send
'最后当然是执行发送了
Set cm=Nothing
'发送成功后即时释放对象
Sendemail =True

end function
 
%>