比国足进世界杯还难的问题求解,兄弟们一定要帮忙啊.

[anwell]

关于一个邮件群发的思路,


假设总共有 665封邮件,要求每封都发,并且隔20封重新发送一次,最后的余数不足20的则按余数一次发送.


大概是这样的:

send 1
send 2
send 3
send 4
send 5
send 6
send 7
send 8
send 9
send 10
...
send 20
重新发送
send 21 ................. send 40
重新发送
.....
send 640 ... send 660
send 661
send 662
send 663
send 664
send 665

[yyjzsl]

用JS是否要好些？

[slawdan]

每20个添加到收件人里面就可以了~
然后发送两次

最后不够20个一样可以这样搞~

记下log，发现发送失败的重新发送一次

多简单啊~

[weiang_1983]

dim maxnum,i
maxnum=82
For i=1 To maxnum
If i Mod 20=1 Then Document.write ":建立jmail对象<br>"
Document.write "获取邮件列表"&i&"<br>"
If i Mod 20=0 Or i=maxnum Then Document.write "一次性发送20条！！！<br>"
Next

[wenzhou960]

我是（急切盼望...(83816782)）來接分的

[边城的刀声]

学习 ……

[anwell]

<script language="vbscript">
Dim i
i = 665
For i = 1 To 665
If i Mod 20 = 1 Then
Document.write "Set jmail = CreateObject(""JMAIL.Message"")<br>"
End If
Document.write "jmail.AddRecipient"&i&"<Br>"
If i Mod 20 = 0 Or i = 665 Then
Document.write "jmail.send()<br>"
End If
Next
</script>