Jmail 元件運用 #1
'Send_Mail 信箱,碼,帳號,密碼,姓名
Sub Send_mail(Em,VCode,Act,Pw,Na)
Detail = "--會員驗證信通知----------------------------------------------<BR><BR>"
Detail = Detail & Na & " 您好：<br><BR>"
Detail = Detail & "下方是您登入網站之會員資料，請妥善保存：<BR><BR>"
Detail = Detail & "◎帳號 ： " & Act & "<BR>"
Detail = Detail & "◎密碼 ： " & PW & "<BR><BR>"
Detail = Detail & "請選取以下連結以啟用您的帳號：<BR>"
Detail = Detail & "<a href="http://192.168.0.169/verifyChk.asp">點我認証</a><BR>"
Detail = Detail & "------------------------------------------------------<BR><BR>"
Set Jmail = Server.CreateObject("JMail.Message")
JMail.ContentType = "text/html" '設定為HTML傳送格式
JMail.Charset = "Big5" '設定charset為Big ' 郵件字符集，默認為"US-ASCII"
JMail.Logging = true '啟動紀錄檔與否true/false
JMail.ContentTransferEncoding = "base64"
JMail.From = "center@xxx.com" ' 發送者地址
JMail.FromName = "客服中心" ' 發送者姓名
JMail.Subject = "歡迎您成為會員"' 郵件主題
' 設置優先級，範圍從1到5，越大的優先級越高，3為普通
JMail.Priority = 5
' 身份驗證
JMail.MailServerUserName = "xxx"
JMail.MailServerPassword = "xxx"
'下面兩行是偽裝成 Outlook Express , 比較不會被判斷成廣告
jMail.AddHeader "Mailer","Microsoft Outlook Express V6"
jMail.AddHeader "MimeOLE","Produced By Microsoft MimeOLE V6.00"
'加入一個收件人
JMail.AddRecipient EM
' 郵件主體
JMail.HTMLBody = "<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=Big5""><style type=text/css>A:link { FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #000000}A:visited {FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #666666}A:hover {COLOR: #ff6600; FONT-SIZE: 9pt; TEXT-DECORATION: underline}BODY {FONT-SIZE: 9pt} --></style></head><body>"&Detail &"</body></html>" '（HTML(注意信件內鏈接附件的方式)）
Sub Send_mail(Em,VCode,Act,Pw,Na)
Detail = "--會員驗證信通知----------------------------------------------<BR><BR>"
Detail = Detail & Na & " 您好：<br><BR>"
Detail = Detail & "下方是您登入網站之會員資料，請妥善保存：<BR><BR>"
Detail = Detail & "◎帳號 ： " & Act & "<BR>"
Detail = Detail & "◎密碼 ： " & PW & "<BR><BR>"
Detail = Detail & "請選取以下連結以啟用您的帳號：<BR>"
Detail = Detail & "<a href="http://192.168.0.169/verifyChk.asp">點我認証</a><BR>"
Detail = Detail & "------------------------------------------------------<BR><BR>"
Set Jmail = Server.CreateObject("JMail.Message")
JMail.ContentType = "text/html" '設定為HTML傳送格式
JMail.Charset = "Big5" '設定charset為Big ' 郵件字符集，默認為"US-ASCII"
JMail.Logging = true '啟動紀錄檔與否true/false
JMail.ContentTransferEncoding = "base64"
JMail.From = "center@xxx.com" ' 發送者地址
JMail.FromName = "客服中心" ' 發送者姓名
JMail.Subject = "歡迎您成為會員"' 郵件主題
' 設置優先級，範圍從1到5，越大的優先級越高，3為普通
JMail.Priority = 5
' 身份驗證
JMail.MailServerUserName = "xxx"
JMail.MailServerPassword = "xxx"
'下面兩行是偽裝成 Outlook Express , 比較不會被判斷成廣告
jMail.AddHeader "Mailer","Microsoft Outlook Express V6"
jMail.AddHeader "MimeOLE","Produced By Microsoft MimeOLE V6.00"
'加入一個收件人
JMail.AddRecipient EM
' 郵件主體
JMail.HTMLBody = "<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=Big5""><style type=text/css>A:link { FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #000000}A:visited {FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #666666}A:hover {COLOR: #ff6600; FONT-SIZE: 9pt; TEXT-DECORATION: underline}BODY {FONT-SIZE: 9pt} --></style></head><body>"&Detail &"</body></html>" '（HTML(注意信件內鏈接附件的方式)）
' JMail.Body = "我們的郵件採用了HTML格式，但是您的郵件查看軟件可能不支持。。。" & Detail '（文本部分）
JMail.Send("gogoping.com")
' 關閉並清除對像
JMail.Close()
Set JMail = Nothing
if err.number<>0 then
response.write "<script>alert('發送失敗，請稍後再試！')</script>"
else
response.write "<script>alert('己送出！')</script>"
end if
End Sub
JMail.Send("gogoping.com")
' 關閉並清除對像
JMail.Close()
Set JMail = Nothing
if err.number<>0 then
response.write "<script>alert('發送失敗，請稍後再試！')</script>"
else
response.write "<script>alert('己送出！')</script>"
end if
End Sub
