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