如何用ASP脚本实现自动发送EMail？

请问哪位老大对ASP脚本实现自动发送EMail，有个比较好的解决方案。
---------------------------------------------------------------

<%
'JMail发件函数
'说明：
'FromEmail-发件人邮件地址;ToEmail-收件人邮件地址；Subject-主题；mailbody-邮件内容；isAttach-是否发送附件；AttachList-附件列表，如“attach1.txt,attach2.txt.........”
'附件存放目录：/Attach/
Function Jmail(Fromemail,ToEmail,Subject,mailbody,isAttach,AttachList)
Dim FJMail,SendMail,Farr,FAttachPath
Set FJMail = Server.CreateObject("JMail.SMTPMail")
FJMail.Logging=True
FJMail.Charset="gb2312" '语言
FJMail.ContentType = "text/html" '邮件格式
FJMail.ServerAddress="mail.yeboss.com.cn:25" '邮件服务器地址
FJMail.Sender=FromEmail
FJMail.Subject=Subject
FJMail.Body=mailbody
FJMail.AddRecipient Toemail
FJMail.Priority =1 '邮件优先级 1 -高 ' 3 - 普通 ' 5 - 低
if isAttach then
Farr=split(AttachList,",")
for i=0 to ubound(Farr)
FAttachPath=server.MapPath("/Attach/" & Farr(i))
FJMail.AddAttachment FAttachPath,"text/html" '附件
next
end if
FJMail.Execute
Set FJMail=nothing
if err then
Jmail=err.description
err.clear
else
Jmail="OK"
end if
End Function