jmail邮件发送代码

<%
  
'***********************发送电子邮件
On error resume next
dim CLStr,msg,mailserver,receive
CLStr=Chr(13) & Chr(10)

mailserver="smtp服务器地址"                            '邮局服务器地址（smtp服务器地址）
username="登陆名"                                'smtp服务器验证登陆名（邮局中开设的任何一个信箱的地址）
password="密码"                                   'smtp服务器验证密码  （信箱密码）
receive=rs("Email")                          '接受反馈信息的email地址（可以是您的任何有效信箱）此处为用户注册时所填写的邮箱

Set msg = Server.CreateObject("JMail.Message")
msg.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值
msg.Logging = true '启用邮件日志
msg.Charset = "gb2312"
msg.ContentType = "text/html" '邮件的格式为HTML格式
msg.ISOEncodeHeaders = false '是否进行ISO编码，默认为True(加上了这一句)
msg.MailServerUserName = username
msg.MailServerPassword = password   
msg.From = username   
msg.FromName = username
msg.AddRecipient (Email)
msg.FromName = "***会员中心"
msg.Subject ="亲爱的用户：注册成功"
'msg.Body =request("name")&CLStr
'msg.Body = msg.Body&"新密码:"&ranNum&CLStr
msg.HTMLBody = "内容"

msg.Send (mailserver)
msg.close
set msg = nothing


'********************发送电子邮件结束
%>