SendMail.Asp ( 收集網站訪客填寫的表單並轉寄成電子郵件):
<%@LANGUAGE = VBSCRIPT%>
<html>
<body>
<%
recipient = "you@email.com" '此處為收信人的電子郵件位址
' 取得表單資料
name = Request.Form("name")
senderEmail = Request.Form("email")
subject = "Regarding " & Request.Form("subject")
body = Request.Form("body")
' 建立 JMail 元件宣告
set msg = Server.CreateOBject( "JMail.Message" )
' 設定將寄信的過程紀錄下來
msg.Logging = true
msg.silent = true
' 中文編碼設定 *請一定要加入下面四行才能正常顯示中文*
msg.Charset = "big5"
msg.ContentTransferEncoding = "base64"
msg.Encoding = "base64"
msg.ISOEncodeHeaders = false
' 將填寫表單資料的訪客資料存入元件中
msg.From = senderEmail
msg.FromName = name
' 將收信人的資料加入元件
msg.AddRecipient recipient
' 設定信件的主題
msg.Subject = subject
' 設定信件的主體內容
msg.body = body
' 送出表單資料為電子郵件 ,並指定送信伺服器 SMTP
if not msg.Send("mail.you.com" ) then
Response.write "<pre>" & msg.log &
"</pre>"
else
Response.write "信件成功寄出!"
end if
%>
</body>
</html>
|