帮帮忙,一个JMail发邮件问题

[aliketen]

sql="select EMAIL from user"
set rs=conn.execute(sql)
Response.Write("正在邮件群发.................." )
do while not rs.eof
JMail.AddRecipient(""&rs("email")&"")
RS.MoveNext
Loop
rs.close

上面是只是读取了表user中EMAIL的邮件地址,我还有一张user1表中EMAIL的数据需要读取并同时发送邮件,我该怎样写呢?

[aliketen]

再顶一下

[hgxlucky]

经典，收藏
我也正想做一个

[yangzixp]

背景：
Email地址存于MSSql一用户信息表中，数量上万。
公司自有服务器，集SMTP,POP3,WWW,FTP,MSSql,DNS等多种服务于一身。
JMAIL 有MailMerge对象，但是免费版不能用

要求：
用ASP+JMAIL，利用公司SMTP向所有用户发送EMAIL

思路：
直接读取数据库，多次循环发送，会对本来配置不高的服务器造成很大压力。
最好能对EMAIL分批发送，每批发送间隔一段时间，以此来缓解对服务器造成的压力。

实现：
对EMAIL分批读出记录到recordset，利用常见的分页程序，将所有记录分页，每页作为一批，有多少页就分多少批间隔延迟在每页执行完毕后用<meta http-equiv="refresh" content="60;URL=SendMail.asp?page="&page>来延迟跳转减少执行时间：
在循环的过程中，循环添加收件人，而不要循环发送，即
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 包含邮件主题、正文的表单，<form action="SendMail.asp" target="Send">；一个iframe页面，<iframe name="Send" src="SendMail.asp">
SendMail.asp 包含后台发送程序，循环，延迟跳转等。

缺点：
发送过程中不能离开该页面发送的时间较长，与设置的每批发送数量、网络带宽、SMTP服务器性能有关

改进：
可以在Mail.asp中包含多个iframe页面，每个页面从不同的page开始发，相当于多线程发送，对smtp服务器压力会增大，但能缩短发送时间。
可考虑在不同的page中采用不同的smtp服务器，例如包含多个iframe页面，在偶数页用smtp.abc.com，在奇数页用smtp.123.com。这样既减轻服务器压力，也达到多线程发送缩短发送时间的目的。

[xeimm]

顶~~~

[yangzixp]

再操作一次数据库就可以了啊

[aliketen]

顶~~~