06. februar 2004 - 10:10Der er
8 kommentarer og 1 løsning
Begrænsning på hvor mange e-mails man må sende ud. JMail
Hej
Jeg 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
denne skulle vel virke når man skal sende 20 af gangen:
<% 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 if counter = 20 then JMail.Close counter = 0 end if counter = counter + 1 rs.movenext loop Set Jmail = Nothing RS.MoveNext Loop
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.