ASP+JMAIL发送邮件

<% function sendmail(rec_email) On error resume next Dim JMail, contentId Set JMail = Server.CreateObject("JMail.Message") JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII" JMail.FromName = "佳佳软件中心" ' 发送者姓名 JMail.Subject = "您好，您好!欢迎光临http://www.job266.com" ' 邮件主题 JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") JMail.AddRecipient(rec_email) JMail.HTMLBody = "您好!欢迎光临" JMail.MailServerUserName = "用户名" '身份验证的用户名 JMail.MailServerPassword = "密码" '身份验证的密码 JMail.Send("smtp.qq.com") 'smtp服务器 if err.number<>0 then response.write "发送失败！" else response.write "发送成功！" end if ifJMail.Close() Set JMail = Nothing end function %> 状态： <% sendmail("504920177@qq.com") %>