December 14, 2018, Friday, 347

【Windows進階主機】JMail 程式範例

出自智邦小幫手

(重定向自Jmail
跳轉到: 導覽, 搜尋

【Windows進階主機】JMail 程式範例


此範例改寫自 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才可支援。