Jmail发送邮件

<%

Function Send_Email(smtpHost,smtpUser,smtpPass,mailTo,FromName,subject,content)

Set jmail = Server.CreateObject("JMAIL.Message")

jmail.silent = true

jmail.logging = true

jmail.Charset = "gb2312"

jmail.ContentType = "text/html"

jmail.AddRecipient mailTo

jmail.From = smtpUser

jmail.FromName = FromName

jmail.Subject = subject

jmail.Body = content

jmail.Priority = 1

jmail.MailServerUserName = smtpUser

jmail.MailServerPassword = smtpPass

jmail.Send(smtpHost)

jmail.Close()

response.write("??浠跺????????")

End Function

%>

'浣跨?ㄦ?规?锛?

<%Send_EMail("smtp???″??,"??浠朵汉??绠卞?板??","浣???瀵???","?朵欢浜洪??绠?,"??浠朵汉濮???","??棰?","??浠舵?ｆ????瀹?)%>

'渚?瀛?锛?

<%Send_EMail("smtp.163.com","[email?protected]","00000","[email?protected]","灏???","??棰?","??浠舵?ｆ????瀹?)%>