<% sender =Request("sender") recipient =Request("recipient") company =Request("company") contactperson =Request("contactperson") mobile =Request("mobile") tel =Request("tel") fax =Request("fax") web =Request("web") subject =Request("subject") bodyinfo =Request("bodyinfo") bodyinfo =Request("bodyinfo") bodySent = "電子郵件:"&sender&"
" bodySent = bodySent & "公司名稱:"&company&"
" bodySent = bodySent & "聯絡人員:"&contactperson&"
" bodySent = bodySent & "行動電話:"&mobile&"
" bodySent = bodySent & "電 話:"&tel&"
" bodySent = bodySent & "傳 真:"&fax&"

" bodySent = bodySent & "網 址:"&web&"

" bodySent = bodySent & "詢問內容:"&bodyinfo&"
" Call SentMail %> <% Function SentMail() '20140619 新增一組EMAIL Serviceasp Set jmail = Server.CreateObject("JMAIL.Message") jmail.silent = true jmail.logging = true smtpServer ="127.0.0.1" jmail.MailServerUserName = "Serviceasp@jetfast.com.tw" 'jmail.MailServerUserName = "Service@jetfast.com.tw" jmail.MailServerPassword = "KennySet1" 'jmail.MailServerPassword = "Il558*tM" jmail.AddHeader "Mailer","Microsoft Outlook Express V6" jmail.AddHeader "MimeOLE","Produced By Microsoft MimeOLE V6.00" jmail.Charset = "utf-8" jmail.ContentType = "text/html"'寄送時文件的內容是否編碼 jmail.ContentTransferEncoding = "8bit"'郵件收件人的email地址與姓名 jmail.AddRecipient recipient 'jmail.AddRecipient "kenny.4km@gmail.com" jmail.From = sender '發件人的E-MAIL地址 jmail.FromName = sender '發件人的名字 jmail.Subject = subject '郵件的標題 jmail.Body = bodySent '郵件的內容'郵件的緊急程序,1 為最快,5 為最慢, 3 為默認值 jmail.Priority = 3'執行郵件發送(通過郵件服務器地址 jmail.Send(smtpServer)'關閉連線 jmail.Close()' 畫面顯示寄出成功訊息 'Response.write "
"&Jmail.log&"
" End Function %>