asp+jmail实现自动发邮件功能 Web 开发 / ASP

作者：佚名    文章来源：不详    点击数：加载中...    更新时间：2008-7-12 字体:[大 中 小]

asp+jmail实现自动发邮件功能

楼主gw_noah（）2006-12-22 10:39:27 在 Web 开发 / ASP 提问

当会员第一次注册成功时，后台自动发E-MAIL到会员和管理员邮箱，  
      a.>告诉该会员恭喜您已成为本站会员  
      b.>告诉管理员有一个新会员注册了本站会员  
      当会员的服务期限快到时，后台同样也自动发E-MAIL到会员和管理员邮箱，  
      a.>告诉该会员他的会员时间快到期  
      b.>告诉该管理员某某会员时间快到期  
   
      请问具体怎么实现，具体步骤？（望能具体说明） 问题点数：35、回复次数：6Top

1 楼cow8063（天涯远不远？不远！人在天涯，天涯怎会远）回复于 2006-12-22 11:19:34 得分 35

就在注册成功的时候写发邮件的代码呀  
  function   SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority,MailServer,MailServerUserName,MailServerPassword,MailDomain)  
    Dim   JMail  
  Set   JMail=Server.CreateObject("JMail.Message")  
  JMail.Charset="UTF-8"                     '邮件编码  
  JMail.silent=true  
  JMail.ContentType   =   "text/html"           '邮件正文格式  
  JMail.MailServerUserName   =   MailServerUserName         '登录用户名  
        JMail.MailServerPassWord   =   MailServerPassword                 '登录密码  
  JMail.MailDomain   =   MailDomain               '域名（如果用“name@domain.com”这样的用户名登录时，请指明domain.com  
  JMail.AddRecipient   MailtoAddress,MailtoName           '收信人  
  JMail.Subject=Subject                   '主题  
  ' JMail.HMTLBody=MailBody               '邮件正文（HTML格式）  
  JMail.Body=MailBody                     '邮件正文  
  JMail.FromName=FromName                   '发信人姓名  
  JMail.From   =   MailFrom                   '发信人Email  
  JMail.Priority=Priority                             '邮件等级，1为加急，3为普通，5为低级  
  JMailerror=JMail.Send(MailServer)  
   
  JMail.Close()  
  Set   JMail   =   Nothing  
  end   function  
  刚看到其它贴的,  
  JMail.Body=MailBody                     '邮件正文,这里是你要说的所有东西Top

2 楼webmm（一笑而过）回复于 2006-12-22 11:40:10 得分 0

接分~~~Top

3 楼yydy1983（游泳的鱼）回复于 2006-12-22 11:46:43 得分 0

服务器要组件的Top

4 楼gw_noah（）回复于 2006-12-22 15:48:44 得分 0

比如会员快要到期了怎么又让他自动发E-Mail   ?Top

5 楼gw_noah（）回复于 2006-12-22 15:51:06 得分 0

能同时发给管理员和会员么？怎么搞？Top

6 楼gw_noah（）回复于 2006-12-22 17:27:01 得分 0

比如会员快要到期了怎么又让他自动发E-Mail   ?  
  微软.NET官方网站论坛源码Top