Multimailing - hvordan ?

Kan det virkelig have sin rigtighed at ingen kan hjælpe med dette ?

Nedtur :-(

Prøv noget i denne stil:

<%
if request("mode") = "send" then

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb") & ";UID=admin;PWD=;"

   
            Set rs = Server.CreateObject("ADODB.RecordSet")
            strSQL = "Select * From tabel"
            rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

          rs.AddNew
          rs("felt1") = Request("felt1")
          rs("felt2") = Request("felt2")
            rs.Update
           
   
Set jmail = Server.CreateObject("JMail.Message")
jmail.AddRecipient "modtager@email.dk"
jmail.From = "din@email.dk"
jmail.Subject = "emne"
jmail.Body = "Din tekst"
jmail.Send( "mail.domæne.dk" )


send.movenext
loop
conn.close
else
end if %>

Det er sådan set det jeg har i forvejen, og skal det udsende ca. 800 mails, tager det omkring 2 minutter at udføre. Jeg mangler en hurtigere måde at gøre det samme stykke arbejde på, men ved bare ikke hvordan :-(

Du kunne redirecte din mail sender til en hidden frame?

Du kunne også betale knapper for din JMAIL. Så ville alle mails blive lagt ned i en mappe som SMTP-serveren på den lokale maskine læser mails fra.

Hvis du har mulighed for kan og ikke vil betale for JMail, kan du i stedet bruge CDONTS. Denne komponent følger med SMTP servicen til windows NT/2K