繁体中文
设为首页
加入收藏
当前位置:ASP技术首页 >> ASP应用 >> 利用ASP+JMAIL进行邮件群发的新思路

利用ASP+JMAIL进行邮件群发的新思路

2006-02-15 08:00:00  作者:  来源:互联网  浏览次数:0  文字大小:【】【】【
简介:   背景: Email地址存于MSSql一用户信息表中,数量上万。 公司自有服务器,集SMTP,POP3,WWW,FTP,MSSql,DNS等多种服务于一身。 JMAIL 有MailMerge对象,但是免费版不能用 要求: 用ASP+JMAIL,利用公司SMTP向所...
关键字:思路 邮件 JMAIL ASP

   背景:

Email地址存于MSSql一用户信息表中,数量上万。

公司自有服务器,集SMTP,POP3,WWW,FTP,MSSql,DNS等多种服务于一身。

JMAIL 有MailMerge对象,但是免费版不能用

要求:

用ASP+JMAIL,利用公司SMTP向所有用户发送EMAIL

思路:

直接读取数据库,多次循环发送,会对本来配置不高的服务器造成很大压力。

最好能对EMAIL分批发送,每批发送间隔一段时间,以此来缓解对服务器造成的压力。

实现:

对EMAIL分批

读出记录到recordset,利用常见的分页程序,将所有记录分页,每页作为一批,有多少页就分多少批

间隔延迟

在每页执行完毕后用来延迟跳转

减少执行时间:

在循环的过程中,循环添加收件人,而不要循环发送,即

for i=1 to rs.pagesize

msg.AddRecipient rs("Email")

rs.movenext

next

msg.Send ("smtp.abc.com")

减小邮件大小

循环添加收件人,会造成一封Email的收件人很多,这样一封Email的就会很大。

所以,在以上代码的基础上改进一下,在循环内做个判断,当收件人Email数量到达

20的时候就发送一次。即:

for i=1 to rs.pagesize

msg.AddRecipient rs("Email")

  if i mod 20 = 0 then         '每 20 个收信人作为一封Email发送一次

   msg.Send ("smtp.abc.com")

   msg.ClearRecipients         '清除已发送的收信人

  end if

rs.movenext

next

msg.Send ("smtp.abc.com")         '发送余下的

页面

Mail.asp    包含邮件主题、正文的表单,

;一个iframe页面,