Send mail i klumper v.h.a Jmail

Hejsa Gutter jeg har et lille problem, jeg ikke kan greje.

Ideen er at nedenstående stykke kode skulle sende mail til en række brugere i en database.

For ikke at belaste mailserveren, tænkte jeg at det var smartest at sende mails ud i klumper.

Dvs således at der generes en mail med de første 75 modtagere som BCC hvorefter den går videre og generere en ny mail med 75 modtagere. Dette gør den så til databasen er tom og den sidste mail indeholder måske så kun 20 modtagere eller sådan noget.

Scriptet ser sådan ud.



        DO WHILE NOT RS_maillist.eof

            Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
                JMail.ContentType = \"text/html\"
                JMail.ServerAddress = domain_mail_server
                JMail.SenderName = domain_mail_name
                JMail.Sender = domain_mail
                JMail.Subject = mail_subject
                JMail.AddRecipientEX  domain_mail, \"Information\"
   
                i = 0
                DO WHILE not rs_maillist.eof and i < 4
                JMail.AddRecipient´BCC rs_maillist(\"email\")
                rs_maillist.movenext
                i = i + 1
                LOOP
               
                JMail.Priority = 3
                JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
                JMail.Body = mail_body
                JMail.Execute
        LOOP

Håber der er nogen der kan hjælpe hurtigst muligt ;o)