欢乐颂小说,魔天记忘语小说

%
'******************************
'函數：SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)
'參數：MailtoAddress,接收郵件地址；MailtoName,接收者姓名；ubject,主題；ailBody,郵件內容；FomName,主送姓名；ailFrom,主送郵件地址；riority,郵件等級
'作者：阿里西西
'日期：2007/7/13
'描述：JMAIL通用發(fā)送函數
'示例：%=SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)%>
'******************************
function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)
on error resume next
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
if err then
  SendMail= "br>li>沒有安裝JMail組件/li>"
  err.clear
  exit function
end if
JMail.Charset="gb2312"
JMail.silent=true
JMail.ContentType = "text/html"
JMail.MailServerUserName = MailServerUserName
    JMail.MailServerPassWord = MailServerPassword
   JMail.MailDomain = MailDomain
JMail.AddRecipient MailtoAddress,MailtoName
JMail.Subject=Subject
JMail.HMTLBody=MailBody
JMail.Body=MailBody
JMail.FromName=FromName
JMail.From = MailFrom
JMail.Priority=Priority
JMail.Send(MailServer)
SendMail =JMail.ErrorMessage
JMail.Close
Set JMail=nothing
end function%>

您可能感興趣的文章:

asp中判斷服務器是否安裝了某種組件的函數
asp空間判斷jmail組件是否安裝或支持的代碼
Win2003安裝并注冊jmail組件
Jmail 圖文安裝教程 asp在線發(fā)送郵件組件
解決JMail無法安裝的方法(帳戶名與安全標識間無任何映射完成)
asp jmail發(fā)郵件詳細解析
使用Jmail及Winwebmail發(fā)信時系統(tǒng)記錄中的錯誤：502 Error: command ...
安裝jmail 出現(xiàn)The message was undeliverable. All servers failed to receive the message的解決方法
Jmail組件發(fā)送郵件之絕對能用的函數
Jmail發(fā)郵件的例子
ASP用JMail、CDO發(fā)送郵件

標簽：電商邀評延邊那曲優(yōu)質小號新鄉(xiāng) 銅川河池蘇州

巨人網絡通訊聲明：本文標題《asp通過JMAIL實現(xiàn)通用發(fā)送函數》，本文關鍵詞 asp,通過,JMAIL,實現(xiàn),通用,；如發(fā)現(xiàn)本文內容存在版權問題，煩請?zhí)峁┫嚓P信息告之我們，我們將及時溝通與處理。本站內容系統(tǒng)采集于網絡，涉及言論、版權與本站無關。

濮阳杆衣贸易有限公司

asp通過JMAIL實現(xiàn)通用發(fā)送函數