 |
|
||||||
|
|||||||
| 聯絡我們 | ||||||||||||||||||||
|
<%
subb = Request("subb")
name = Request("name")
email = Request("email")
comment = Request("comment")
tel = Request("tel")
If subb = "aa1" then
content = "姓名： " & name & vbCRLF & vbCRLF
content = content & "電郵： " & email & vbCRLF & vbCRLF
content = content & "電話： " & tel & vbCRLF & vbCRLF
content = content & "內容：" & vbCRLF
content = content & comment & vbCRLF & vbCRLF
content = content & "This mail form ip: " & Request.ServerVariables("Remote_Host") & vbCRLF
mailsubject = "Mail by VICA.COM.HK"
'建立 Jmail Component 物件
Set Jmail = Server.CreateObject("Jmail.SMTPMail")
Jmail.Logging = True '啟動錯誤紀錄
Jmail.Silent = True
'Jmail.Charset = "big5" '若使用繁體中文，要將字元集設為 big5
Jmail.ContentType = "text" '若郵件主旨會出現亂碼, 請將 ISOEncodeHeaders 設為 False
Jmail.ISOEncodeHeaders = False
Jmail.Sender = Email '指定寄件人電子郵件
Jmail.SenderName = Name '指定寄件人姓名
Jmail.Subject = mailsubject
Jmail.AddRecipient "sales@vica.com.hk"
Jmail.AddRecipientCC "earlytsang@gmail.com"
Jmail.Body = content
Jmail.Priority = 3
Jmail.Execute '執行送出
Jmail.Close
'response.write ""
response.write " 多 謝 你 的 查 詢 ， 會 盡 快 跟 進 ！ " else %>
|
