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