ASP利用Jmail发送邮件代码

[code]
Set Jmail=server.createobject("Jmail.Message")
Jmail.Silent=true
Jmail.Charset="gb2312"
Jmail.Priority=3 '优先级
Jmail.MailServerUserName="xxxx@xxxx.com"
Jmail.MailServerPassword="123456"
Jmail.From="xxxx@xxxx.com"
Jmail.FromName="xxxx@xxxx.com"
Jmail.Subject=name
Jmail.AddRecipient rs("mail")
JMail.HTMLBody=body
Jmail.Send("mail.xxxx.com")
send_jmail="ok"
if err then
err.clear
send_jmail="no"
end if
Jmail.close()
Set Jmail=nothing
[/code]