Avatar billede jeep Nybegynder
06. februar 2004 - 10:10 Der 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

    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"

%>
Avatar billede cdc Novice
06. februar 2004 - 10:18 #1
Avatar billede keysersoze Guru
06. februar 2004 - 10:36 #2
æææv - det var jo mit svar ;)
Avatar billede jeep Nybegynder
06. februar 2004 - 10:47 #3
Hej keysersoze
Du kan få point hvis du retter koderne til så det passer til mig.
Jeep
Avatar billede cdc Novice
06. februar 2004 - 11:56 #4
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

Connect.Close

response.redirect "done.asp"

%>
Avatar billede cdc Novice
06. februar 2004 - 11:58 #5
hvis de har en session på serveren, så dit script timer out kunne du jo smide denne i toppen på din side:
<% Server.ScriptTimeout = 5000 %>
Avatar billede cdc Novice
06. februar 2004 - 11:58 #6
er lidt usikker på denne:

RS.MoveNext
Loop
Avatar billede jeep Nybegynder
06. februar 2004 - 13:14 #7
Der virker ikke hvad kan der være galt??
er det "RS.MoveNext Loop"
Avatar billede jeep Nybegynder
06. februar 2004 - 16:06 #8
Hjælp så der point med det samme.
Avatar billede larsen Nybegynder
08. februar 2004 - 17:11 #9
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



IT-JOB