Det sikre og hurtige nyhedsbrev

Når jeg laver en funktion til at sende mails ud til flere personer (<1000) ad gangen benytter jeg oftest nedenstående metode:

Function SendMails(arrModtagere)
    Set objCDO = Server.CreateObject("CDONTS.NewMail")
        objCDO.From = "mailrobot"
        objCDO.Subject = "Sidste nyt!"
        objCDO.Body = "Nu skal du bare høre.... læs mere her..."
       
        For i = 0 To Ubound(arrModtagere)
            objCDO.To = arrModtagere(i)
            objCDO.Send
        Next
       
    Set objCDO = Nothing
End Function


Men når jeg så kommer op på flere brugere (>1000) bliver ovenstående metode simpelthen for langsom, og der kommer timeout. Ja jeg har selvfølgelig sat timeout tiden op til det umulige, men jeg syntes ikke det var den rigtige løsning. Derfor fandt jeg på følgende:


Function SendMails(arrModtagere)
    For i = 0 To Ubound(arrModtagere)
        strModtager = strModtager & "; " & arrModtagere(i)
    Next
   
    Set objCDO = Server.CreateObject("CDONTS.NewMail")
        objCDO.From = "mailrobot"
        objCDO.Subject = "Sidste nyt!"
        objCDO.Body = "Nu skal du bare høre.... læs mere her..."
        objCDO.BCC = strModtager
        objCDO.Send
    Set objCDO = Nothing
End Function

Problemet er nu, at jeg har modtaget en mail fra en nyhedsmodtager, der skriver at han kan se samtlige mailadresser i BCC, men er det ikke den der er "usynlig" for andre brugere?

Bemærk ovenstående kodeeksempler blot er for forståelsens skyld, så der er sikkert syntaksfejl m.m. ;-)

Men hvad er løsningen? hvad gør de af jer der sender mails ud til mange modtagere ad gangen?