Mailing system

Så vidt jeg husker, skal du vist sætte sessionen timeout op..
Og så er det bare med at lave en loop, der sender mailen til 1 person ad gangen..

Hvis du sender til mange/samtligt brugere på een gang, kan det blive opfatter som spam, og så vil de muligvis blive blokeret..

Som der står i spørgsmålet, kan jeg sagtens sende mine mails, og de bliver også sendt en af gangen. Jeg tænkte bare der måtte være en anden måde at gøre det på, som måske ikke tager 25 min ??, men det tar måske bare så lang tid ?

Du kunne også sende til flere på en gang.. jeg ved ikke om det går hurtigere..

Er det den samme mail alle brugere skal ha eller står der noget forskelligt i dem?

Helt den samme, den kører bare igennem et loop hvor den sender mail's til de forskellige mails den henter til databasen.

Fra databasen, skulle der stå

Hvor har du din loop henne?

Det mest optimale, vil jeg tro, er nok at gøre sådan her:

Dim Mailer,bodym
   
    Set Mailer = Server.CreateObject("JMail.Message")

' START_LOOP

    Mailer.From = "x"
    Mailer.FromName = "x"
    Mailer.AddRecipient("x")
    Mailer.Subject = Request.Form("x")
    Mailer.Body = "Hej " & navn & VbCrLf & VbCrLf & bodym
    Mailer.Send("x")

' SLUT_LOOP

    Set Mailer = Nothing

Så skal du ikke nedlægge og oprette objekter og variabler.



En anden ting du kan prøve:
Hent alle email adresserne ud i en streng og splitte strengen. Så får du en array, som du kan løbe igennem.

Problemet kan være, at den skal vente på både Mailer og databasen..

Eksempel:

set rs = conn.execute(sql)

if rs.bof or rs.eof then

response.write "der er ingen emails i databasen"

else

dim e
do while not rs.eof

e = e & rs("email") & ","

rs.movenext
loop

e = left(e, len(e) - 1)

e = split(e, ",")

Dim Mailer,bodym
   
    Set Mailer = Server.CreateObject("JMail.Message")

dim i
for i = lbound(e) to ubound(e)
    Mailer.From = "x"
    Mailer.FromName = "x"
    Mailer.AddRecipient("x")
    Mailer.Subject = Request.Form("x")
    Mailer.Body = "Hej " & e(i) & VbCrLf & VbCrLf & bodym
    Mailer.Send("x")
next

Set Mailer = Nothing
end if

set rs = nothing
' husk at frigøre din forbindelse ("conn" i mit eksempel) osv..

ideen er god nok, men hvis du ikke sætter mail til "ingenting" vil den bare adder mail adressen, så der tilsidst vil være 1000 mail adresser. Altså så den sender en mail til 1000 hver gang den bare skulle sende en.

Er du sikker på, at Mailer.Send("x") ikke tømmer mail-objektet?

Prøv at lave en test, med et lille antal mails (f.eks. 3-5 mails), med din egen email adresse..

har jeg testet gør den ikke, men smid et svar, så kan du point som tak for hjælen, eller lukker jeg den i aften.

Ok, svar. :-)