第十七章 Jmail寄信組件許多網站都有註冊完成後自動發信 用來確認Email信箱是否正確的機製。在這個章節我們示範如何使用ASP來做到自動發信的功能。ASP上的發信功能中使 ... [卡國17天傳說 [卡國17天傳說#17] ASP會員管理 第十七章 JMail發信組件 - 趣味新聞網

發表日期 2009-05-31T18:09:27+08:00

     本帖最後由 danielpaggy 於 2009-5-31 22:04 編輯

第十七章 Jmail寄信組件
許多網站都有註冊完成後自動發信，用來確認Email信箱是否正確的機製。在這個章節我們示範如何使用ASP來做到自動發信的功能。

ASP上的發信功能中使用到的組件是JMail，它是在ASP上最常被使用到的發信組件。它之所以會如此受歡迎，除瞭功能強大之外，還有就是它是免費的，並且國內外絕大部份的空間都有支援。當然，在使用它之前我們要先進行安裝，你可以在這個地方取得免費版本，在使用JMail之前先確定你的主機支援SMTP。
http://dimac.net/FreeDownloads/v3DlStart.asp?ProductID=5

接下來先介紹JMail的使用方法
Set jmail=Server.CreateObject("Jmail.Message")         '建立Jmail物件
jmail.silent                                         '是否返迴錯誤代碼
jmail.Logging                                 '是否使用日誌
jmail.Charset                                        '郵件編碼
jmail.ContentType                                '郵件格式
jmail.MailServerUserName                '登入帳號
jmail.MailServerPassword                '登入密碼
jmail.From                                        '寄件人信箱
jmail.FromName                                '寄件人名稱
jmail.AddRecipient                                '收件人
jmail.Subjec                                        '主旨
jmail.HTMLBody                                '內文
jmail.Send                                        'SMTP Server

瞭解使用方法後，把它寫成Function 並且加上SMTP的登入帳號，密碼以及SMTP Server主機位址

'Jmail寄信組件
Function Jmail(ContactEmail,HeadLine,Content)                '(收件者,標題,內容)
'郵件伺服器資料
MailLoginId = "service@XXXXX.com"                '登入帳號
MailLoginPw = "123456"                                        '登入密碼
SmtpServer = "exsrv.XXXXX.com"                        'SMTP伺服器
Sender = "卡提諾17天不朽傳說 by Srv0915"        '寄件者名稱

Set jmail=Server.CreateObject("Jmail.Message")         '建立Jmail物件
jmail.silent=true                                                         '不返迴錯誤代碼
jmail.Logging = true                                                 '是否使用日誌
jmail.Charset = "BIG5"                                                '郵件編碼
jmail.ContentType = "text/html"                                '郵件格式
jmail.MailServerUserName = MailLoginId                '登入帳號
jmail.MailServerPassword = MailLoginPw                '登入密碼
jmail.From = MailLoginId                                        '寄件人信箱
jmail.FromName = Sender                                        '寄件人名稱
jmail.AddRecipient ContactEmail                                '收件人
jmail.Subject = HeadLine                                        '主旨
jmail.HTMLBody = Content                                        '內文
jmail.Send SmtpServer                                                'SMTP Server
set jmail = nothing
End Function

接下來我們隻要給它 收件者,標題,內容 這3個參數就可以瞭。
在CheckSave.asp中新增完員資料後，加上
if EMail <> "" then
Title = "卡提諾不朽傳說 測試信件"
Content = "親愛的 " & UserName &" 先生/小姐 您好：" & "<br>" & chr(13)
Content = Content & "感謝您加入「卡提諾17天不朽傳說」</a>，您的資料已建立完畢" & "<br>" & chr(13)
Content = Content & "這是係統自動發齣的信件，請勿直接迴覆!" & "<br>" & chr(13)
Call Jmail(EMail,Title,Content)
end if

意思是如果會員的Email不為空，那就把定義好的主旨及郵件內容發送到會員的信箱。
測試一下新增會員時填入Email


送齣，沒幾分鍾就收到瞭一封信件，來看看內容



這樣就完成瞭~

分享鏈接