Function sEndHtmlMail(strFname,strFemail,strTname,strTemail,strSubject,strHtml)
'SMTP验证的相关信息,在global.asa设定
on error resume next MailServer=application("MailServer") MailServerUserName=application("MailServerUserName") MailServerPassWord=application("MailServerPassWord") set objMsg = Server.CreateOBject("JMail.Message")
objMsg.Logging=true
objMsg.FromName=strFname objMsg.From=strFemail objMsg.AddRecipient strTemail,strTname objMsg.MailServerUserName=MailServerUserName objMsg.MailServerPassWord=MailServerPassWord objMsg.Charset="gb2312"objMsg.ContentType="text/html"objMsg.Subject=strSubject objMsg.HTMLBody=strHtml objMsg.SEnd(MailServer)End Function |