服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - asp通过JMAIL实现通用发送函数

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

2019-10-11 10:48阿里西西 ASP教程

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

  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%> 

延伸 · 阅读

精彩推荐