实现:
对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 包含后台发送程序,循环,延迟跳转等。