JMail i klumper

Hvilken fejl får du?

Siden kan ikke vises

Har du slået den der fra du ved, i din browser?
Funktioner -> Internetindstillinger -> Avanceret -> Vis meddelelser om uskadelige HTTP-fejl (fjern fluebenet)

Undskyld jeg viste koden der virkede. Her er den der IKKE virker

<% Server.ScriptTimeout = 5000 %>
<%


Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DBQ=" & server.mappath("../../../data/email.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"


%>

Hvor mange poster har du?

ca. 1200, men når jeg tester har jeg 3 og det virker heller ikke med 3.

og ingen af dine mails kommer frem?

Niks, som sagt virker den første kode, men ikke med 1200 fordi min udbyder lukker af for mange mails. Derfor denne ekstra kode, der skulle gøre, at de bliver sendt ud i klumper.

Prøv denne her:

<% Server.ScriptTimeout = 5000 %>
<%


Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DBQ=" & server.mappath("../../../data/email.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

Set RS = Connect.Execute("SELECT * FROM nyhedsbrev")

subject= request("subject")
temp = request("Tekst")

Do while Not RS.EOF
    strEmails = strEmails & RS(1) & ";"
    RS.movenext
loop

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.AddRecipientBCC Left(strEmails, Len(strEmails)-1)
  JMail.Body = temp
  JMail.Priority = 3
  JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
  JMail.Execute
Set Jmail = Nothing
Connect.Close

Nej, det virker desværre heller ikke "siden kan ikke vises" og så har jeg husket at tilføje %> i bunden

Har du en url?

Ps. hvordan skulle det virke. Hvor mange sender man ud til af gangen?

Hvad mener du med det?

ideen med ovenstående er, at du samler en lang liste af email, og sender dem som BBC på én gang. Det går hurtigere en normalt

Kan jeg se siden på internettet, eller udvikler du lokalt

Jeg udvikler lokalt. Problemet er, at jeg ikke må sende ud på en gang

Min side ligger hos http://www.mondo.dk hvis der er andre der har erfaring med dem?

Arrrgg... det vidste jeg ikke

Andre forslag

jeg tænker :-)

Godt for er der faktisk 260 point ;-)

Nemlig :-)

Må du kun sende én mail ad gangen, eller flere (hvor mange)

ca 20 af gangen.

Hmmm... jeg er blank. Problemet er jo at mondos server vil opfatte det som en sending lige meget hva du gør..

Det skulle den ikke gøre med dette kode, men det virker så ikke :-(

JMail.Execute
    if counter = 20 then
          JMail.Close
          counter = 0
      end if
      counter = counter + 1
      rs.movenext
      loop
      Set Jmail = Nothing
  RS.MoveNext
  Loop

Hvad med :

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DBQ=" & server.mappath("../../../data/email.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

Set RS = Connect.Execute("SELECT * FROM nyhedsbrev")

Set JMail = Server.CreateObject("JMail.SMTPMail")
  JMail.ServerAddress = "smtp.mitdomæne.dk"
  JMail.Sender = "info@mitdomæne.dk"
  JMail.Subject = request("subject")
  JMail.Body = request("Tekst")
  JMail.Priority = 3
  JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

Counter=0
Do while Not RS.EOF
  counter = counter + 1
    JMail.ClearRecipients
  JMail.AddRecipient RS(1)
  JMail.Execute
    if counter = 20 then
        JMail.Close
        counter = 0
    end if
    RS.movenext
loop

JMail.Close
Set Jmail = Nothing
Connect.Close

Tak
Det virker med 3 emails på listen, så må vi håbe det virker med 1200 og flere.

Og tak til dig Steen for forsøget. Larsen du må lave et svar til point og sæt det også ind her http://www.eksperten.dk/spm/461679

Ps. jeg tjekker med 1200 mails på onsdag, så vender jeg tilbage med en kommentar

Det er bare iorden :-) Jeg er glad for at det virker (ihvertfald med 3)

Det virker også med 1200 :-) Endnu engang tak

Det var så lidt :-)