JMail-mailingliste

Ja...

Set JMail = Server.CreateObject("JMail.SMTPMail")

For num = 0 to Ubound(arrEmail,2)

    blablabla...

Next

JMail.close
set JMail = nothing

Nu har jeg lavet koden om til at se sådan her ud med udgangspunkt i oasens svar. Jeg synes imidlertid stadig at det tager lidt lang tid. Jeg har lavet en test-database med 25 email-adresser, og det tager omkring 18 sekunder at eksekvere scriptet. Hvad vil der ikke ske, når jeg skal til at sende til mine 1200 e-mail-adresser på min mailingliste?

    on error resume next    
   
        Set JMail             = Server.CreateObject("JMail.SMTPMail")
               
        JMail.ServerAddress = "mail.legestue.net" 'smtp-sender
   
        ' Aktiverer fejllogging
        JMail.Logging         = False
   
        ' mail config settings
        JMail.Charset         = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"
        JMail.Priority         = 3
       
        JMail.Sender         = "lars@legestue.net"
        JMail.Subject         =  header
       
            ' Send oplysninger...
        JMail.LazySend = true
        'JMail.Silent = True
           
        For num = 0 to Ubound(arrEmail,2)
       
            email = trim(arrEmail(2, num))
   
            JMail.ClearRecipients()
            JMail.AddRecipient email
   
            ' nødvendigt at have denne del her, da email ændrer sig
            fjern = ""
            fjern = fjern + "  F R A M E L D  D I G  N Y H E D S B R E V E T"& vbCrLf
            fjern = fjern + "Denne e-mail er sendt til adressen: "& email & vbCrLf
            fjern = fjern + "Du kan framelde dig Fodboldens Legestues nyhedsbrev ved at klikke på:"& vbCrLf
            fjern = fjern + "http://www.legestue.net/mail3/mailingliste.asp?frameld="& email & vbCrLf & vbCrLf

            ' samling af teksten
            bodytekst = tekst + respons + fjern + kontakt
       
            JMail.Body            = bodytekst

            'send
            JMail.Execute
       
            ' tjekker for fejlmeddelelser
            If err.Number <> 0 Then
                Response.Write "<p><b>Beskeden blev ikke sendt til: " & email & "</b>"
   
                If err.Number = -2147418113 Then
                    Response.Write "<p><b>E-mailadressen: " & email & " var ikke rigtig</b>"
                else
                Response.Write "<p>Prøv igen senere.</b><br>"
                end if
            Else
                response.write "<br>E-mail er sendt til: "& email
            end if   
       
        Next ' loop

JMail.close
set JMail = nothing

Hehe... Så svil det ta' knap et kvarter at sende mails ud?

Nej, umiddelbart er der vel ikke så meget andet at gøre... Det TA'R jo lissom tid at eksekvere ASP-kode, og når du så ovenikøbet er nødsaget til at fejlchecke for hver enkelt loop, konkatenere en masse strenge osv. er det lidt småskidt. Overvej at lave et Windowsprogram i VB (eller VB.NET) i stedet.

Det er jo ligegyldigt - du kan bare lade den stå og hygge sig, mens den udsender mails.

Husk at sætte dette ind i toppen af din side:

Server.ScriptTimeout = 1000

Talværdien er den tid i sekunder, der går, før siden "timer out". Den kan du selv ændre.

Det er rigtigt. Jeg har sat en scripttimeout, så jeg kører videre med dette script. Tak for svaret.

Ur welcome ;)