asp发送邮件代码

asp发送邮件代码

function SendMail(MailServerAddress,AddRecipient,Subject,Body,Sender,MailFrom)
 on error resume next
 Dim JMail
 Set JMail=Server.CreateObject("JMail.SMTPMail")
 if err then
  SendMail= "<br><li>没有安装JMail组件</li>"
  err.clear
  exit function
 end if
 JMail.Logging=True
 JMail.Charset="gb2312"
 JMail.ContentType = "text/html"
 JMail.ServerAddress=MailServerAddress
 JMail.AddRecipient=AddRecipient
 JMail.Subject=Subject
 JMail.Body=MailBody
 JMail.Sender=Sender
 JMail.From = MailFrom
 JMail.Priority=1
 JMail.Execute
 Set JMail=nothing
 if err then
  SendMail=err.description
  err.clear
 else
  SendMail="OK"
 end if
end function