讓您的WEBServer利用JMAIL自動發送郵件

很多網頁都有用戶留言自動POST至指定郵箱的功能，這回我們可以用自己的WEBSERVER來實現了,前提是已有MAILSERVER。
安裝JMAIL(隨便一個版本哦)，然後POST以下代碼(ASP為例)：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Response.Expires=0%>
<%
  on error resume next
 
  function AspAlert(InfoStr)
  Response.Write "<script language='JavaScript'>"
  Response.Write "alert('" & InfoStr & "')"
  Response.Write "</script>"
  end function
  function AspLocation(HttpStr)
    Response.Write "<script language='JavaScript'>"
    Response.Write "window.location.href='" & HttpStr &"';"
 Response.Write "</script>"
  end function
  Set msg = Server.CreateObject("JMail.Message")
  msg.silent = true
  msg.Logging = true
  msg.MailServerUserName = "web@mailserver.com"   '記得要在你的MAILSERVER上創建這個帳號
  msg.MailServerPassword = "web"
  msg.From = "web@mailserver.com"
  msg.FromName = "Web Administrator"
  msg.AddRecipient "sales@mailserver.com","sales"
  msg.AddRecipient "james.wong@mailserver.com","james wong"
  msg.Subject =  "Feedback from our website -- " & date
 
  dim tempS  '這裡為獲取網頁上傳遞過來的資料哦
  temps="Hello,the following is a message from " & Request.ServerVariables("REMOTE_HOST") & " at " & now & " :" & vbnewline & vbnewline
  temps=temps & "Visitor's name: " & left(Trim(Request.Form("gname")),20) & vbnewline
  temps=temps & "Affiliated enterprise: " & left(Trim(Request.Form("cname")),40) & vbnewline
  temps=temps & "Email address: " & left(Trim(Request.Form("mailadr")),30)& vbnewline
  temps=temps & "Telephone number: " & left(Trim(Request.Form("phoneno")),20) & vbnewline
  temps=temps & "Fax number: " & left(Trim(Request.Form("faxno")),20) & vbnewline
  temps=temps & "**************************************************"& vbnewline
  temps=temps & "Detailed content : " &vbnewline & vbnewline & left(Trim(Request.Form("mcon")),380) & vbnewline
  msg.Body = temps 
  msg.Send ("mail.mailserver.com")   '請求您的MAILSERVER開始工作嘍
  
  dim ec
  ec=msg.errorcode
  set msg = nothing
  if ec<>0 then
    call aspalert("Sorry,failed in sending,please try later."& vbnewline & msg.errormessage)
  else 
    call aspalert("Thank you!Succeed in sending and leaving a message ...")
  end if 
  call AspLocation("feedbacks.html")
%>

這樣就完工了，簡單吧。