快捷導(dǎo)航

asp jmail發(fā)郵件詳細(xì)解析

更新時(shí)間：2007年11月21日 22:33:42 作者：

再講一下微軟自帶的CDONTS組件的發(fā)信的方法：
<%
Set cdomail = Server.CreateObject("CDONTS.NewMail") '建立郵件對(duì)象
cdomail.Subject = "Mail Subject" '郵件標(biāo)題
cdomail.From = "Sender's Mail" '發(fā)件人的地址
cdomail.To = "Email will from" '收件人的地址
cdomail.Body = "Mail Body" '郵件的內(nèi)容
cdomail.Send '執(zhí)行發(fā)送
%>
這種方法發(fā)送郵件是最簡單的，同時(shí)也帶來一定的問題，就是很少有服務(wù)器會(huì)開這項(xiàng)服務(wù)！

我們寫程序，一般情況下都是說要代碼模塊化，這樣方便維護(hù)，同時(shí)也方便移植。因此，我在這里將這個(gè)發(fā)郵件的寫成一個(gè)子程，在調(diào)用的時(shí)候可以直接調(diào)用（當(dāng)然，如果你高興寫成函數(shù)的話也是可以的，這個(gè)主要是看個(gè)人興趣）：

復(fù)制代碼代碼如下:

<% 
'參數(shù)說明 
'Subject : 郵件標(biāo)題 
'MailAddress : 發(fā)件服務(wù)器的地址,如smtp.163.com 
'Email : 收件人郵件地址 
'Sender : 發(fā)件人姓名 
'Content : 郵件內(nèi)容 
'Fromer : 發(fā)件人的郵件地址 


Sub SendAction(subject, mailaddress, email, sender, content, fromer)  
Set jmail = Server.CreateObject("JMAIL.SMTPMail") '創(chuàng)建一個(gè)JMAIL對(duì)象 
jmail.silent = true 'JMAIL不會(huì)拋出例外錯(cuò)誤，返回的值為FALSE跟TRUE 
jmail.logging = true '啟用使用日志 
jmail.Charset = "GB2312" '郵件文字的代碼為簡體中文 
jmail.ContentType = "text/html" '郵件的格式為HTML的 
jmail.ServerAddress = mailaddress '發(fā)送郵件的服務(wù)器 
jmail.AddRecipient Email '郵件的收件人 
jmail.SenderName = sender '郵件發(fā)送者的姓名 
jmail.Sender = fromer '郵件發(fā)送者的郵件地址 
jmail.Priority = 1 '郵件的緊急程序，1 為最快，5 為最慢， 3 為默認(rèn)值 
jmail.Subject = subject '郵件的標(biāo)題 
jmail.Body = content '郵件的內(nèi)容 
'由于沒有用到密抄跟抄送，這里屏蔽掉這兩句，如果您有需要的話，可以在這里恢復(fù) 
'jmail.AddRecipientBCC Email '密件收件人的地址 
'jmail.AddRecipientCC Email '郵件抄送者的地址 
jmail.Execute() '執(zhí)行郵件發(fā)送 
jmail.Close '關(guān)閉郵件對(duì)象 
End Sub 

'調(diào)用此Sub的例子 
Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer 
strSubject = "這是一封用JMAIL發(fā)送的測試郵件" 
strContent = "JMail組件發(fā)送測試成功！" 
strEmail = "runbing@eyou.com" 
strFromer = "runbing@eyou.com" 
strMailAddress = "mail.ubbcn.com" 


Call SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer) 
%>