jmail.message 实现发送邮件(测试通过)

Dim JMail, Jtitle,JContent,JToEmail,Jfromemail

Dim SMTPName,SMTPPassword,SMTPServer

 

省略中间赋值语句......

Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "utf8"
Jmail.ISOEncodeHeaders = false
JMail.Subject = Jtitle

JMail.Priority = 3
Jmail.ContentType = "text/html"
JMail.AddRecipient(JToEmail)
JMail.ContentType = "text/html"
JMail.Body = Jcontent

JMail.From = JFromemail

JMail.MailServerUserName = SMTPName
JMail.MailServerPassword = SMTPPassword

JMail.Send(SMTPServer)
if err.number<>0 then
   response.write "sorry,your application failer!"
else
   response.Write("thanks,your application success, we'll contact you as soon as possible !")
end if

JMail.Close()
Set JMail = Nothing