ASP利用Jmail发送邮件代码

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