Begrænsning på hvor mange e-mails man må sende ud. JMail
HejJeg har et nyhedsbrev som har virket perfekt, MEN pludselig virkede det ikke, fordi min udbyder har sat en begrænsning på, hvor mange mails man må sende ud.
Jeg har 1200 mails på listen som jeg gerne vil sende ud og der skulle gerne komme flere til.
Jeg vil gerne undgå at skifte udbyder eller at sætte min egen mailserver op.
Mit spørgsmål er:
Er det muligt at ændre dette scripts eller lave et nyt så det sender en mail af gangen eller i små klumper. Eller findes der et program der kan dette.????
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DBQ=" & server.mappath("../../../script/mailliste.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set RS = Connect.Execute("SELECT * FROM nyhedsbrev")
subject= request("subject")
temp = request("Tekst")
Do while Not RS.EOF
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "smtp.mitdomæne.dk"
JMail.Sender = "info@mitdomæne.dk"
JMail.Subject = subject
JMail.AddRecipient RS(1)
JMail.Body = temp
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
Set Jmail = Nothing
RS.MoveNext
Loop
Connect.Close
response.redirect "done.asp"
%>