檢視【Windows進階主機】JMail 程式範例的原始碼

<!--智邦「網站空間」、「虛擬主機」、「網站代管」、「企業信箱」操作說明-->
<font size='5' color='orange'><b>【Windows進階主機】JMail 程式範例</b></font>


此範例改寫自 JMail 官方網站，可建立簡易線上寄信程式內容，歡迎參考使用（若需更進一步的功能使用說明，請至 [http://www.dimac.net/ JMail 官方網站]）。


* '''一般使用範例'''
<font size="-1"><pre>
<%@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>
</pre></font>
註：SMTP Server 請客戶自備，Windows 虛擬主機服務並未提供，請使用SMTP 25埠的Mail server才可支援。


* '''發信驗證使用範例'''
<font size="-1"><pre>
<%
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
%>
</pre></font>
註：SMTP Server 請客戶自備，Windows 虛擬主機服務並未提供，請使用SMTP 25埠的Mail server才可支援。