当前位置:96看吧 > 技术文档 > ASP编程 > ASP函数利用Jmail实现自动邮件发送

ASP函数利用Jmail实现自动邮件发送

时间:2013/10/06
作者:MaWendong.CN
来源:96看吧
查看:
标签:asp函数

该ASP函数是利用Jmail组件轻松实现邮件发送,利用Jmail实现邮件发送是很简单的,也很方便。需要设置STMP参数。

  1. '======================================================================= 
  2. '作者:MaWenDong.CN 
  3. '博客:http://www.96kb.com 
  4. 'SendMail(Subject,MailBody,ToEmailAddress,MailTip) 
  5. 'SendMail(邮件标题,邮件内容,收件人的Email地址,结果提示) 
  6. '使用演示:Call SendMail("测试","内容","mawd86@126.com",0无提示或1有信息提示) 
  7. '======================================================================= 
  8. function SendMail(Subject,MailBody,ToEmailAddress,MailTip) 
  9.     on error resume next 
  10.     dim JMail 
  11.     dim MailServerUserName,MailServerPassword,MailServer 
  12.     dim MailFromName,MailFromAddress,MailtoAddress 
  13.     Set JMail=Server.CreateObject("JMail.Message") '创建Jmail对象 
  14.     if err<>0 then 
  15.         SendMail= "<p>未安装Jmail</p>" 
  16.         err.clear 
  17.         exit function 
  18.     end if 
  19.     '===============================Jmail========================== 
  20.     JMail.Charset="gb2312"             '邮件字符集 
  21.     JMail.silent=true                  '屏蔽例外错误,返回FALSE跟TRUE两值 
  22.     jmail.logging = true               '启用使用日志 
  23.     JMail.ContentType = "text/html"    '邮件编码 
  24.     JMail.Priority=3                   '邮件优先级1-5,1 为最快,5 为最慢, 3 为默认值 
  25.     '############################################################### 
  26.     'JMail.Maildomain="mail.163.com" 
  27.     JMail.MailServerUserName = cfg_smtp_user         'SMTP用户 
  28.     JMail.MailServerPassWord = cfg_smtp_password     'SMTP密码 
  29.     JMail.AddRecipient ToEmailAddress                '收件人的Email地址 
  30.     'JMail.AddRecipientBCC ToEmailAddress            '密件收件人的Email地址  
  31.     'JMail.AddRecipientCC ToEmailAddress             '抄送收件人的Email地址 
  32.     JMail.Subject=Subject                            '邮件主题 
  33.     JMail.Body=MailBody                              '邮件内容 
  34.     JMail.FromName=cfg_smtp_username                 '发件人 
  35.     JMail.From = cfg_smtp_usermail                   '发件人Email地址 
  36.     JMail.Send(cfg_smtp_server)                      '执行邮件发送(通过SMTP邮件服务器地址)       
  37.     '################################################################ 
  38.     if MailTip=1 then 
  39.         if not jmail.Send ("smtp发信服务器名称") then  
  40.              sendmail=""  
  41.         else  
  42.              sendmail="OK"  
  43.         end if  
  44.         if sendmail="OK" then  
  45.              response.write "邮件发送成功,请注意查收!"  
  46.         else  
  47.              response.write "邮件发送失败,请检查Jmail组件配置信息!"  
  48.         end if  
  49.     end if 
  50.     '################################################################ 
  51.     JMail.Close 
  52.     Set JMail=nothing 
  53. end function 

 以上代码中需要设置的变量值:

  1. Const cfg_smtp_server="" 'smtp服务器 
  2. Const cfg_smtp_port="25" 'smtp服务器端口 
  3. Const cfg_smtp_usermail="" 'SMTP服务器的用户邮箱 
  4. Const cfg_smtp_user="" 'SMTP服务器的用户帐号 
  5. Const cfg_smtp_password="" 'SMTP服务器的用户密码 

 

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