服务器之家

服务器之家 > 正文

asp通过JMAIL实现通用发送函数

时间:2019-10-11 10:48     来源/作者:阿里西西
  1. <%  
  2. '******************************  
  3. '函数:SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)  
  4. '参数:MailtoAddress,接收邮件地址;MailtoName,接收者姓名;ubject,主题;ailBody,邮件内容;FomName,主送姓名;ailFrom,主送邮件地址;riority,邮件等级  
  5. '作者:阿里西西  
  6. '日期:2007/7/13  
  7. '描述:JMAIL通用发送函数  
  8. '示例:<%=SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)%>  
  9. '******************************  
  10. function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)  
  11.  on error resume next  
  12.  Dim JMail  
  13.  Set JMail=Server.CreateObject("JMail.Message")  
  14.  if err then  
  15.   SendMail= "<br><li>没有安装JMail组件</li>"  
  16.   err.clear  
  17.   exit function  
  18.  end if  
  19.  JMail.Charset="gb2312"        
  20.  JMail.silent=true  
  21.  JMail.ContentType = "text/html"    
  22.  JMail.MailServerUserName = MailServerUserName    
  23.     JMail.MailServerPassWord = MailServerPassword        
  24.    JMail.MailDomain = MailDomain        
  25.  JMail.AddRecipient MailtoAddress,MailtoName     
  26.  JMail.Subject=Subject          
  27.  JMail.HMTLBody=MailBody     
  28.  JMail.Body=MailBody           
  29.  JMail.FromName=FromName        
  30.  JMail.From = MailFrom         
  31.  JMail.Priority=Priority            
  32.  JMail.Send(MailServer)  
  33.  SendMail =JMail.ErrorMessage  
  34.  JMail.Close  
  35.  Set JMail=nothing  
  36. end function%> 
标签:

相关文章

热门资讯

玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情 2019-06-22
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-09-17
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字 2019-06-05
超A是什么意思 你好a表达的是什么
超A是什么意思 你好a表达的是什么 2019-06-06
返回顶部