此範例改寫自 JMail 官方網站,可建立簡易線上寄信程式內容,歡迎參考使用(若需更進一步的功能使用說明,請至 JMail 官方網站)。



一般使用範例

<%@LANGUAGE="VBSCRIPT" %> 

<HTML> 

<BODY> 

<% 

Set jmail = Server.CreateObject("JMail.Message") 

' 在此鍵入收件人信箱、姓名。此語法可重複使用以同時寄送給更多收件者 

jmail.AddRecipient "recipient@url.com.tw", "Name" 

' 在此鍵入寄件人信箱 

jmail.From = "bizmail@corp.url.com.tw" 

' 在此鍵入主旨 

jmail.Subject = "JMail測試" 

jmail.Body = "" 

jmail.Charset = "big5" 

jmail.ContentTransferEncoding = "base64" 

jmail.Encoding = "base64" 

jmail.ISOEncodeHeaders = false 

' 在此鍵入HTML內容 

jmail.HTMLBody = "<html><head><meta http-equiv=""Content-Type""content=""text/html; charset=big5""></head><body><font 

color=""red"">恭喜!JMail測試成功!</font><br>" 

jmail.appendHTML "<br><br>智邦生活館客服中心</body></html>" 

' 在此鍵入純文字內容(收信者無法檢視HTML時的備案) 

jmail.Body = "" 

jmail.appendText " 很遺憾您無法閱讀HTML內容" 

' 在此鍵入SMTP伺服器IP,此處以Hinet為例 

jmail.Send( "168.95.4.211" ) 

%> 

寄件成功!</BODY> 

</HTML>

註:SMTP Server 請客戶自備,Windows 虛擬主機服務並未提供,請使用SMTP 25埠的Mail server才可支援。



發信驗證使用範例

<%

dim username, e_mail, tel, memo

username=Trim(request("username"))

e_mail=Trim(request("e_mail"))

tel=Trim(request("tel"))

memo=Trim(request("memo"))

%>


<%

Set msg=Server.CreateObject("Jmail.Message") 

msg.silent=true 

msg.Logging = true 

msg.Charset = "BIG5"

msg.ContentType = "text/html"

msg.MailServerUserName = "max@abc.url.tw"'SMTP 帳號 

msg.MailServerPassword = "password"'SMTP密碼

msg.From = "max@abc.url.tw"'寄件人 

msg.FromName = "陳先生"'寄件人名稱

msg.AddRecipient e_mail "max@abc.url.tw"'收件人 

msg.Subject = "智邦生活館jmail測試"'主旨 

Body= "連絡人:" & username & "連絡電話:" & tel & "電子郵件:" & e_mail & "連絡事項:" & memo '郵件主要內容

msg.Body = Body

msg.Send ("abc.url.tw")'請設定SMTP Server 的主機名稱,如:168.95.4.211

set msg = nothing

%>

<%

session.abandon

response.write "<script language=JavaScript>" & chr(13) & "alert('您的資料已發送成功 謝謝。');" & "location.assign(

'form.htm')" & "</script>"

Response.End

%>

註:SMTP Server 請客戶自備,Windows 虛擬主機服務並未提供,請使用SMTP 25埠的Mail server才可支援。