ASP如何使用CDONTS来发送电子邮件？

请问如何使用CDONTS组件来发送电子邮件？

我们可以在IIS4下使用CDONTS来完成。首先要确认是否安装了SMTP服务（OPTIONPACK缺省安装时是包括SMTP服务的）。在SMTP服务安装后，system32目录下有一个CDONTS.DLL文件。然后，我们就可以来通过ASP发送电子邮件了，很简单哦：

<％
　　DimMailObject
　　SetMailObject=Server.CreateObject("CDONTS.NewMail")
MailObject.Send"song@intels.net","song@intels.net","Mysubject","Mytext"
　　％>
　　是不是很简单？
    如果想发送附件，也可以：
　　<％
　　DimMailObject
　　SetMailObject=Server.CreateObject("CDONTS.NewMail")
　　att_file="c:\chunfeng\iloveu.txt"
　　f_name="iloveu.txt"
　　MailObject.From="song@intels.net"
　　MailObject.To="chunfeng@intels.net"
　　MailObject.Subject="主题"
　　MailObject.Body="内容"
　　MailObject.AttachFileatt_file,f_name
　　MailObject.Send
　　％>
再看一例，可直接引用：
Dim CDONTSObj, MessageBody
' 声明变量
Set CDONTSObj = Server.CreateObject("CDONTS.NewMail")
' 创建CDONTS 对象
CDONTSObj.To = "feiwenhua@163.net"
' 发送地址
CDONTSObj.From = "songyanhao@163.net"
' 寄信人地址
CDONTSObj.cc = "liyanbing@intels.net,wuxiaotao@intels.net"
' 抄送,可用逗号分开
MessageBody = "Sending a email using ASP was never so easy ! " 
' 信件内容
CDONTSObj.Subject = "Send a Email"
' 信件主题
CDONTSObj.Body = MessageBody
' 把信件内容的指定给对象
CDONTSObj.Send
' 发送邮件
Set CDONTSObj = nothing
' 清空