当前位置:96看吧 > 技术文档 > ASP编程 > asp方法函数调用jmail组件

asp方法函数调用jmail组件

时间:2009/11/03
作者:诚心(MaWenDong)
来源:96看吧
查看:
标签:asp函数

'=======================================================================
'Send Mail
'=======================================================================
function SendMail(Subject,MailBody,ToEmailAddress)
 on error resume next
 Dim JMail
 dim MailServerUserName,MailServerPassword,MailServer
 dim MailFromName,MailFromAddress,MailtoAddress
 Set JMail=Server.CreateObject("JMail.Message")
 if err<>0 then
  SendMail= "<br><li>未安装Jmail</li>"
  err.clear
  exit function
 end if
  Dim rsEmail
  Set rsEmail=Conn.Execute("Select EmailSMTP,EmailUserName,EmailPassword,EmailAddress,EmailSender,EmailTo From [DB_Email] ")
  If rsEmail.Eof then
   response.write"<script>alert('未设置Email发送设置');history.go(-1);</Script>"
   response.write"未设置Email发送设置"
  Else
   MailServer=rsEmail(0)  'SMTP邮件服务器地址
   MailServerUserName=rsEmail(1)   '用户名
   MailServerPassword=rsEmail(2) '密码
   MailFromAddress=rsEmail(3) 'Email地址
   MailFromName=rsEmail(4)     '发件人
  End if
  rsEmail.Close
  Set rsEmail=nothing
 '===============================Jmail==========================
 JMail.Charset="gb2312" '
 JMail.silent=true '
 JMail.ContentType = "text/html"  '
 JMail.Priority=5            
 '###############################################################
 JMail.MailServerUserName = MailServerUserName  '
    JMail.MailServerPassWord = MailServerPassword  ' 
 JMail.AddRecipient ToEmailAddress   '
 JMail.Subject=Subject      
 JMail.Body=MailBody         
 JMail.FromName=MailFromName     
 JMail.From = MailFromAddress     
 JMail.Send(MailServer)      
 '################################################################
 JMail.Close
 Set JMail=nothing
end function

以上代码中Jmail参数配置是读取数据库的,大家可根据实际需求灵活改动。

上一篇:asp函数全角数字转换为半角数字
下一篇:asp函数过滤html标记a标记等
页面举报
Report
关闭页面
Close
收藏页面
Favorites
分享页面
Share
版权信息:栏目内,站内会员所分享的全部“资源/素材/文章”,仅供学习与参考,版权为原作者所有。
下载提示:非注册用户每天可下载一个文件,已注册会员不受限制。
网友评论
数据载入中
验证码
  • 请您注意:
  • ·请不要在评论中含与内容无关的广告链接。
  • ·不良评论请用报告管理员,以利管理员及时删除。
  • ·遵守中华人民共和国的各项有关法律法规
  • ·承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • ·本站管理人员有权保留或删除评论中的任意内容
  • ·您在本站发表的作品,本站有权在网站内转载或引用
  • ·参与本评论即表明您已经阅读并接受上述条款
相关最新
相关热门