Send x antal mails af gangen...

Jeg har lavet dette stykke kode der sender en mail ud til en masse adresser fra en database, som BCC. Men hvordan laver jeg det så den tager f.eks. 50 adresser og så sender mailen, de næste 50 sender mailen osv.. ? Altså så den sender f.eks. 10 mails med 50 BCC adresser hvis der er 500 e-mail adresser i databasen...


Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"mail.server.com\"
JMail.Sender = framail
JMail.SenderName = franavn
JMail.Subject = emne

Sql = \"SELECT * FROM emails\"
Set rs = Conn.execute( Sql )
do until rs.eof

JMail.AddRecipientBCC rs(\"email\")

rs.MoveNext
loop

Conn.close
Set Conn = Nothing

jmail.HTMLBody = body
JMail.Priority = 3
JMail.Execute