ASP+JMAIL发送邮件

来源：互联网发布：关闭移动数据上网功能编辑：程序博客网时间：2024/05/22 02:15

<%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 ififJMail.Close() Set JMail = Nothing end function%>状态：<%sendmail("504920177@qq.com")%>