Batch mail ???

Der er en funktion i JMail pro versionen som gør at du kan lagre beskeder i serverens midlertidige udbakke eller sådan noget, men der findes en anden lidt lettere løsning.

På siden du er i skal du sende de første 20 mails, og så redirecte videre til den samme side igen, med en variabel som siger at du skal sende de 20 næste mails. På samme måde redirecter du til samme side igen og sender de næste 20 mails osv osv osv. Så på den måde sender du 20 mails ad gangen, og skulle gerne undgå problemerne.

Mvh Mark

Hvis indholdet er nøjagtigt ens i alle mails'ne kan du benytte nedenstående:

Saml alle emails i én streng ala. sdsd@erd.dk; erer@dfdgf.ej; ...

Send den som BCC. så kan de ikke se hinandes emailadresser, og det er ikke længere din webserver der skal knokle, men i stedet mailservere...

steen -> din løsning lydes mest spænnende. Kan du/i evt. hjælpe mig en smule med koden ??

<%
set msgTemplate = Server.CreateObject("JMail.Message")
msgTemplate.Subject = Request.Form("header")
msgTemplate.Body = "Kære %%name%%" & vbcrlf& vbcrlf & replace(request.form("tekst"),"'","&acute;")

msgTemplate.From = "xx@xx.dk"
msgTemplate.FromName = "Nyhedsbrev fra xx"
msgTemplate.AddRecipient "%%email%%", "%%name%%"

set mMerge = Server.CreateObject( "JMail.MailMerge")
mMerge.MailTemplate = msgTemplate

Set Conn = Server.CreateObject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mail_list.mdb")
conn.open strDSN
Set MyRS = Conn.execute("SELECT name, email FROM mail WHERE modtaget='0'")
MMerge.BulkMerge myRS, false, "mail.xx.dk"
conn.execute("update mail set modtaget='1' where modtaget='0'")
Response.redirect "kontact.asp"
%>

Dette er min nuværende kode :)

Jeg kender ikke JMail, Men det du skal gøre er bare at loope dit recordset igennem

Set Conn = Server.CreateObject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mail_list.mdb")
conn.open strDSN
Set MyRS = Conn.execute("SELECT email FROM mail")


Do while not MyRS.EOF
strMailliste = strMailliste & MyRS("email") & "; "
Loop


Når du har gjort dette sætter du din modtager (BCC) = strMailliste og eksekverer den!

/Steen

Hmmmm jeg er ikke nogen haj til ASP så enhver form for hjælp er meget velkommen .....

Jeg bliver nødt til at fordele pointene ud da jeg fand en helt anden løsning. Jeg satte server timeout tiden op til 40 min :)...... simpel funsker løsning hehe....

hov !!!! Kom til at give steen alle point !! Sorry Orca :(

Det gør såmænd ikke noget :)