% action=request("action") if action="ok" then '================================================== Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = " itcenter@huanangroup.com " objMail.To = " itcenter@huanangroup.com " '================================================== sendname = trim(Request("sendname")) corp = trim(Request("corp")) tel = trim(Request("tel")) mobile = trim(Request("mobile")) fax = trim(Request("fax")) website = trim(Request("website")) address = trim(Request("address")) email = trim(Request("email")) topic = trim(Request("topic")) abody = trim(Request("abody")) if sendname="" or email="" or topic="" then response.write "請正確填寫每一項!返回上一頁" response.end end if set jmail= server.CreateObject ("jmail.message") jmail.Silent = true jmail.Charset = "gb2312" JMail.ContentType = "text/html" mailbody=mailbody &"—————————————————————————————————————————" mailbody=mailbody & chr(13) mailbody=mailbody &"姓名:"&sendname&"" mailbody=mailbody & chr(13) mailbody=mailbody &"手機:"&mobile&"" mailbody=mailbody & chr(13) mailbody=mailbody &"Mail:"&email&"" mailbody=mailbody & chr(13) mailbody=mailbody &"公司:"&corp&"" mailbody=mailbody & chr(13) mailbody=mailbody &"電話:"&tel&"" mailbody=mailbody & chr(13) mailbody=mailbody &"傳真:"&fax&"" mailbody=mailbody & chr(13) mailbody=mailbody &"地址:"&address&"" mailbody=mailbody & chr(13) mailbody=mailbody &"網址:"&website&"" mailbody=mailbody & chr(13) mailbody=mailbody &"—————————————————————————————————————————" mailbody=mailbody & chr(13) mailbody=mailbody &"主題:"&topic&"" mailbody=mailbody & chr(13) mailbody=mailbody &"具體內容:"&abody&"" mailbody=mailbody & chr(13) mailbody=mailbody &"—————————————————————————————————————————" mailbody=mailbody & chr(13) mailbody=mailbody &"此郵件由華南集團網站線上諮詢系統發送,請勿直接回復此郵件!" mailbody=mailbody & chr(13) mailbody=mailbody &"該發件人郵箱為"&email&"" mailbody=mailbody & chr(13) mailbody=mailbody &"如果需要回復,請發郵件至"&email&"。" mailbody=mailbody & chr(13) mailbody=mailbody &"—————————————————————————————————————————" if sendname <> "" and email <> "" then jmail.From = smtpemail jmail.FromName = sendname jmail.ReplyTo = email jmail.Subject = topic jmail.AddRecipient myemail 'jmail.Body = mailbody jmail.MailServerUserName = smtpuser jmail.MailServerPassWord = smtppwd isgo = jmail.Send(smtpserver) if isgo then msg="郵件發送成功!謝謝你的支持。" else msg = "郵件發送失敗!請檢查您的郵件位址是否正確!" end if 'jmail.Close 'set jmail = nothing objMail.Subject = topic objMail.Body = mailbody objMail.Send Set objMail = Nothing end if end if %>
|
帶*號為必填項目 |
|
© 2007 HUANAN Group All Rights Reserved |