sende 4000 mail's med ASP email

Dette er et eks hvor man bruger en tæller som tæller op til 100 er send tjekker om der er flere der skal sendes også loades siden igen med id=xxx, hvor xxx er så langt den nåede i databasen. Det forudsætter du har et autonummer felt i tabellen. Den benytter så ikke en kolonne "ersendt", men du kan prøve at kikke på det:

Tilføj tælleren omkring while:

EmailSend=0
While (not rs.EOF) AND (EmailSend < 100)
  EmailSend = EmailSend + 1
  strHost = "post.tele.dk"


----


Eftet dein if om der er fejl:

End If

if (NOT rs.EOF) AND (EmailSend < 100) then
  'hvis du har et autonummer felt i tabellen kan det indsættes i linket
  response.redirect("fil.asp?id=rs("id"))
end if


--------


I staren af koden skal du så hendte id

Set rs = Server.CreateObject("adodb.recordset")
idStart = request("id")
if idStart = "" then
  idStart = 0
end if
strSQL = "SELECT * FROM emails WHERE id > " & idStart & " ORDER BY ID ASC"
rs.Open strSQL, ConnectStr, 2, 3


..Hvis du ikke har et autonummer felt i emails tabellen så skrive lige igen.

Du skal nok prøve at lave nogle test for at se om alle får en mail smat ingen får 2 mail. Lige umiddelbart tror jeg at alle får en mail :)

jeg har auto nummer ID.
hvordan lave man egentlig en test af dette ?? :ø)

Ja det var jo et godt spørgsmål....

Har du mulighed for at skrive til en tekst-fil på serveren? Så kan du evt åbne og logge hvilken ID og email adresse der er blevet set til. Samt ukommentere det kode som sender mailen, så ingen mail bliver send ved testen. Eller lav en ny tabel  databasen og så indsæt i den nye tabel hvilken detr sendes til (ID,email) på samme måde som med tekst filen.

du kan prøve at kopier databasen og så havde 55 records eller sådan noget... Sæt antal pr gang ned til 10.

response.redirect("fil.asp?id=rs("id"))

Mangler der ikke noget her ??

Hvad er det lige der er galt her:

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/mail-sender/ghostmailer.asp, line 44

response.redirect ("ghostmailer.asp?id=rs("id"))
-------------------------------------------^

response.redirect ("ghostmailer.asp?id=" & rs("id"))

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/mail-sender/ghostmailer.asp, line 8


hvad sker der her +

Ja fil skal ændre til det filnavn du har på den fil der sende mail:

response.redirect ("ghostmailer.asp?id=" & rs("id"))

Her er scriptet lige igen:

<%
Set rs = Server.CreateObject("adodb.recordset")
idStart = request("id")
if idStart = "" then
  idStart = 0
end if
strSQL = "SELECT * FROM emails WHERE id > " & idStart & " ORDER BY ID ASC"
rs.Open strSQL, ConnectStr, 2, 3



if request("testmail") = "Nej" then

        ConnectStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &server.mappath("subs.mdb")
        Set rs = Server.CreateObject("adodb.recordset")
        rs.Open "emails", ConnectStr, 2, 3
    on error resume next
        EmailSend=0
        While (not rs.EOF) AND (EmailSend < 100)
        EmailSend = EmailSend + 1
        strHost = "post.tele.dk"

          Set Mail = Server.CreateObject("Persits.MailSender")
          Mail.Host = strHost
          Mail.From = "min-email@klummer.dk"
          Mail.Charset = "ISO-8859-1"
          Mail.AddAddress rs("emails")
          Mail.Subject = Mail.EncodeHeader(Request("Subject"))
          Mail.Body = Request("comm")
      Mail.Send
          rs.MoveNext
          Wend
      If Err <> 0 Then ' error occurred
          strErr = Err.Description
          response.write "<script>alert('Mail er sendt - Check email for fejl!');"
          response.write "location.href='send.asp'</script>"
      else
        response.write "<script>alert('Mail er sendt!');"
          response.write "location.href='send.asp'</script>"
          response.end
    End If
   
    if (NOT rs.EOF) AND (EmailSend < 100) then
    response.redirect ("ghostmailer.asp?id=" & rs("id"))
    end if

    rs.close

end if
%>

hvad er line 8 ?

i toppen af siden fik jeg ikke åbnet databasen UPS...

connection str skal satdif med:

ConnectStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &server.mappath("subs.mdb")

sættes i lige før eller efter denne:
Set rs = Server.CreateObject("adodb.recordset")

det kører ikke rigtig, jeg har iøjeblikket 2 email i databasen skal bare lige tester den. men når jeg klikker send så ser det ud som om den sender men der kommer aldrig nogen mails til mig.


<%
ConnectStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &server.mappath("subs.mdb")
Set rs = Server.CreateObject("adodb.recordset")
idStart = request("id")
if idStart = "" then
  idStart = 0
end if
strSQL = "SELECT * FROM emails WHERE id > " & idStart & " ORDER BY ID ASC"
rs.Open strSQL, ConnectStr, 2, 3



if request("testmail") = "Nej" then

        Set rs = Server.CreateObject("adodb.recordset")
        rs.Open "emails", ConnectStr, 2, 3
    on error resume next
        EmailSend=0
        While (not rs.EOF) AND (EmailSend < 100)
        EmailSend = EmailSend + 1
        strHost = "post.tele.dk"

          Set Mail = Server.CreateObject("Persits.MailSender")
          Mail.Host = strHost
          Mail.From = "min-email@klummer.dk"
          Mail.Charset = "ISO-8859-1"
          Mail.AddAddress rs("emails")
          Mail.Subject = Mail.EncodeHeader(Request("Subject"))
          Mail.Body = Request("comm")
      Mail.Send
          rs.MoveNext
          Wend
    If Err <> 0 Then ' error occurred
    strErr = Err.Description
    response.write "<script>alert('Mail er sendt - Check email for fejl!');"
    response.write "location.href='ghostmailer.asp'</script>"
    else
    response.write "<script>alert('Mail er sendt!');"
    response.write "location.href='ghostmailer.asp'</script>"
    response.end
    End If
   
    if (NOT rs.EOF) AND (EmailSend < 100) then
    response.redirect ("ghostmailer.asp?id=" & rs("id"))
    end if

    rs.close

end if
%>
<HTML>
<HEAD>
<style>
a
{
color:#FFFFFF;text-decoration:none;
}

a:hover
{
color:#FFFFFF;text-decoration:underline;
}

td
{
font-size:12px;font-family:Arial,Verdana;
}


.inputSubmit
{
font-size:7pt;
color:white;
background-color: black;
BORDER-BOTTOM: 1px solid;
BORDER-LEFT: 1px solid;
BORDER-RIGHT: 1px solid;
BORDER-TOP: 1px solid;
z-index:10;
}

.inputBut
{
font-family:Arial,Verdana;
font-size:10pt;
background-color: white;
BORDER-BOTTOM: 1px solid;
BORDER-LEFT: 1px solid;
BORDER-RIGHT: 1px solid;
BORDER-TOP: 1px solid;
z-index:10;
}

</style>

<%
Session.LCID = 1030

%>
    <html>
    <head>

    <title>Mail nyheder</title>
    </head>
   
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%" align="center">
  <tr>
    <td valign="middle" align="center">
      <table width="770" border="0" cellspacing="0" cellpadding="0" height="436">
        <tr>
          <td width="612" valign="top">
            <table width="617" border="0" cellspacing="0" cellpadding="0" height="400">
              <tr>
                <td valign="top" class="Over_lillehvidCopy">
                  <form action="ghostmailer.asp?action=send" method="post">
                    <br>
                    <br>
                    <table border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td valign="top"><b>Emne:</b></td>
                        <td>
                          <input class="inputBut" type="text" name="subject" size=50>
                        </td>
                      </tr>
                      <tr>
                        <td valign="top"><b>Besked:</b></td>
                        <td>
                          <textarea class="inputBut" cols=52 rows=15 name="comm"></textarea>
                        </td>
                      </tr>
                      <tr>
                        <td>&nbsp;</td>
                        <td>&nbsp;</td>
                      </tr>
                      <tr>
                        <td>
                          <input type=submit class="inputSubmit" name=submit value="Send nyhedsbrev">
                        </td>
                        <td class="Over_hvidLilleFed">&nbsp;&nbsp;send test mail
                          <select name="testmail" class="inputBut">
                            <option selected>Ja</option>
                            <option>Nej</option>
                          </select>
                        </td>
                      </tr>
                    </table>
                  </form>
                  <p><font face="Arial, Helvetica, sans-serif" size="2">Bruger
                    ialt:
                    <%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("subs.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
strSQL = "SELECT COUNT(ID) AS Antal FROM emails"
Set rs = myConn.Execute(strSQL)
%>
                    <%=rs("antal")%></font></p>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
    </tr>
    </table>
    </body>
    </html>

og Testmail er sat til "nej" ?? du har en if-sætning inden den sender mails:

if request("testmail") = "Nej" then

Du skal slette to linier:

if request("testmail") = "Nej" then

  Set rs = Server.CreateObject("adodb.recordset") '<--slet det har du før
  rs.Open "emails", ConnectStr, 2, 3    '<--- slet for ikke at overskrive det recordset du har åbnet lige før.

jeg har sat min egen mail ind i databasen 1000 gange men når jeg sender skulle den så ikke reloade med id i urlen ??

det gør den ikke den står bare i ca 1 minut ok så springer javaen frem og siger mailen er sendt, med der kommer ingen mail ??

check selv her http://www.rc-internet.com/mail-sender/ghostmailer.asp

Hvis du ikke har slettet denne inier inde i while loopet:
  rs.Open "emails", ConnectStr, 2, 3

så vil den sende på den gamle måde altså alle på en gang.

<%
ConnectStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &server.mappath("subs.mdb")
Set rs = Server.CreateObject("adodb.recordset")
idStart = request("id")
if idStart = "" then
  idStart = 0
end if
strSQL = "SELECT * FROM emails WHERE id > " & idStart & " ORDER BY ID ASC"
rs.Open strSQL, ConnectStr, 2, 3



if request("testmail") = "Nej" then

    on error resume next
        EmailSend=0
        While (not rs.EOF) AND (EmailSend < 100)
        EmailSend = EmailSend + 1
        strHost = "post.tele.dk"

          Set Mail = Server.CreateObject("Persits.MailSender")
          Mail.Host = strHost
          Mail.From = "min-email@mail.dk"
          Mail.Charset = "ISO-8859-1"
          Mail.AddAddress rs("emails")
          Mail.Subject = Mail.EncodeHeader(Request("Subject"))
          Mail.Body = Request("comm")
      Mail.Send
          rs.MoveNext
          Wend
    If Err <> 0 Then ' error occurred
    strErr = Err.Description
    response.write "<script>alert('Mail er sendt - Check email for fejl!');"
    response.write "location.href='ghostmailer.asp'</script>"
    else
    response.write "<script>alert('Mail er sendt!');"
    response.write "location.href='ghostmailer.asp'</script>"
    response.end
    End If
   
    if (NOT rs.EOF) AND (EmailSend < 100) then
    response.redirect ("ghostmailer.asp?testmail=Nej&id=" & rs("id"))
    end if

    rs.close

end if
%>

arrg deler lige scriptet i 2 dele øjeblik

nej det behøves jeg da ikke eller hvad ?

how den sidste if skal rettes til = .:

    if (NOT rs.EOF) AND (EmailSend = 100) then
    response.redirect ("ghostmailer.asp?testmail=Nej&id=" & rs("id"))
    end if

Hmm den sender stadig på samme måde som før alle på en gang, den reloader ikke.

Disse  Request("comm"), skal jo føres med hvorgang siden loades igen eller går det jo tabt i de sidste mail.

Det forstår jeg ikke helt While køre normalt så længe betingelsen er true,
Prøv at sætte CInt omkring emailsend:

EmailSend  =0
While (not rs.EOF) AND (CInt(EmailSend) < 100)
  CInt(EmailSend) = CInt(EmailSend) + 1

og i if sætningen:

if (NOT rs.EOF) AND (CInt(EmailSend) = 100) then

det giver det samme den sender alle på en gang

Prøv at lave while om til do while:

Do While (not rs.EOF) AND (CInt(EmailSend) < 100)


og Wend til:
Loop

Får du alle mails eller de 100 første ?

min indbakke flipper helt dt vælter ind med mail jeg har modtaget ca 700 nu *lol*

men siden relaoder ikke?
Prøv og sæt () omkring hele testen i do while:

Do While ((not rs.EOF) AND (CInt(EmailSend) < 100))

det er stadig det samme alle mail's flyver afsted på samme tid.

Prøv lige for sjov at ændre:
EmailSend  =0
til 101:

EmailSend  =101
Do While (not rs.EOF) AND (CInt(EmailSend) < 100)


Så skulle den ikke sende nogle emails...

jeg prøver om lidt der vælter stadig mail's ind

Prøv at begrænse antallet til 50 i din database og så ændre de to steder der står 100 til 10..

Det giver det samme resultat for testen,men overbelaster ikke din mail-box alt for meget.

hehe det vil jeg gøre om lidt når det stilner lidt af

Der er noget med denne if:

If Err <> 0 Then ' error occurred
  strErr = Err.Description
  response.write "<script>alert('Mail er sendt - Check email for fejl!');"
  response.write "location.href='ghostmailer.asp'</script>"
else
  response.write "<script>alert('Mail er sendt!');"
  response.write "location.href='ghostmailer.asp'</script>"
  response.end
End If

Når de første er send stopper den vel! Da den linker til dhostmailer.asp efterfuldt af response.end. Det skal den ville ikke gøre. Som minimum skal:
response.write "location.href='ghostmailer.asp'</script>"
response.end
fjernes.

Jeg har tabt tråden lidt her er mit script.

<%
ConnectStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &server.mappath("subs.mdb")
Set rs = Server.CreateObject("adodb.recordset")
idStart = request("id")
if idStart = "" then
  idStart = 0
end if
strSQL = "SELECT * FROM emails WHERE id > " & idStart & " ORDER BY ID ASC"
rs.Open strSQL, ConnectStr, 2, 3



if request("testmail") = "Nej" then

    on error resume next
EmailSend  =0
Do While (not rs.EOF) AND (CInt(EmailSend) < 100)
CInt(EmailSend) = CInt(EmailSend) + 1
        strHost = "post.tele.dk"

          Set Mail = Server.CreateObject("Persits.MailSender")
          Mail.Host = strHost
          Mail.From = "min-email@mail.dk"
          Mail.Charset = "ISO-8859-1"
          Mail.AddAddress rs("emails")
          Mail.Subject = Mail.EncodeHeader(Request("Subject"))
          Mail.Body = Request("comm")
      Mail.Send
          rs.MoveNext
          Loop
    If Err <> 0 Then ' error occurred
    strErr = Err.Description
    response.write "<script>alert('Mail er sendt - Check email for fejl!');"
    response.write "location.href='ghostmailer.asp'</script>"
    else
    response.write "<script>alert('Mail er sendt!');"
    response.write "location.href='ghostmailer.asp'</script>"
    response.end
    End If
   
    if (NOT rs.EOF) AND (CInt(EmailSend) = 100) then
    response.redirect ("ghostmailer.asp?testmail=Nej&id=" & rs("id"))
    end if

    rs.close

end if
%>

hvad er det for en response.write "location.href='ghostmailer.asp'</script>" jeg skal fjerne ?

Når den har send tjekkes for om der er fejl i mailen:

If Err <> 0 Then ' error occurred
  'Fejl i mail
else
  'Ikke fejl i mail:
end if

Når den kommer ind i den if sætning og der ikke er nogle fejl. viser den en pop-up vindue med  "Mail er sendt!"  Så laver en en Javascript redirect (location.href='ghostmailer.asp) det vil sige den holder op med at sende mails.

I første omgang syntes jeg du skal ændre

else
  response.write "<script>alert('Mail er sendt!');"
  response.write "location.href='ghostmailer.asp'</script>"
  response.end
end if


Til:
Else
  response.write "nogle mails send"
end if

hej, jeg ved ingenting om asp, men skal:

"Set Mail = Server.CreateObject("Persits.MailSender")"

ikke ændres til:

"Set Mail = Server.CreateObject("Persist.MailSender")"

?

Ups det har jeg helt glemt men for at redirecte skal response.buffer sætters til true i toppen af filen:

<%
Response.Buffer = true
ConnectStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &server.mappath("subs.mdb")
Set rs = Server.CreateObject("adodb.recordset")
idStart = request("id")
if idStart = "" then
  idStart = 0
end if
strSQL = "SELECT * FROM emails WHERE id > " & idStart & " ORDER BY ID ASC"
rs.Open strSQL, ConnectStr, 2, 3


-----

Jeg har prøvet at ligge din kode ind på en side og test lidt.

Jeg har fået det til at virke hvis jeg har response.buffer = true på samt fjerne denne if:

If Err <> 0 Then ' error occurred
  strErr = Err.Description
  response.write "<script>alert('Mail er sendt - Check email for fejl!');"
  response.write "location.href='ghostmailer.asp'</script>"
else
  response.write "<script>alert('Mail er sendt!');"
  response.write "location.href='ghostmailer.asp'</script>"
  response.end
End If

Jeg glemte lige at skriver i SQL-sætningen skal > rettes til >= ellers springer den en over når siden loades igen:

strSQL = "SELECT * FROM emails WHERE id >= " & idStart & " ORDER BY ID ASC"

oki jeg er klar til at prøve igen.

Scriptet ser nu sådan ud:

<%
Response.Buffer = true
ConnectStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &server.mappath("subs.mdb")
Set rs = Server.CreateObject("adodb.recordset")
idStart = request("id")
if idStart = "" then
  idStart = 0
end if
strSQL = "SELECT * FROM emails WHERE id >= " & idStart & " ORDER BY ID ASC"
rs.Open strSQL, ConnectStr, 2, 3



if request("testmail") = "Nej" then

    on error resume next
EmailSend  =0
Do While (not rs.EOF) AND (CInt(EmailSend) < 10)
CInt(EmailSend) = CInt(EmailSend) + 1
        strHost = "post.tele.dk"

          Set Mail = Server.CreateObject("Persits.MailSender")
          Mail.Host = strHost
          Mail.From = "min-email@mail.dk"
          Mail.Charset = "ISO-8859-1"
          Mail.AddAddress rs("emails")
          Mail.Subject = Mail.EncodeHeader(Request("Subject"))
          Mail.Body = Request("comm")
      Mail.Send
          rs.MoveNext
          Loop
    'If Err <> 0 Then ' error occurred
    'strErr = Err.Description
    'response.write "<script>alert('Mail er sendt - Check email for fejl!');"
    'response.write "location.href='ghostmailer.asp'</script>"
    'Else
      'response.write "nogle mails send"
    'end if
   
    if (NOT rs.EOF) AND (CInt(EmailSend) = 10) then
    response.redirect ("ghostmailer.asp?testmail=Nej&id=" & rs("id"))
    end if

    rs.close

end if
%>

Når jeg kører det så sender den alle mail på en gang og reloader ikke for hver 10'ende mail. Jeg har kommenteret if sætningen ud.

Prøv lige og fjern/udkommenter :
  on error resume next

Nu gør den noget jeg ikke helt kan gennemskue. De første 10 mails kommer med overskrift og tekst. De næste 40 er uden indhold men den reloader ikke, men når den er færdig hopper den til ghostmailer.asp?testmail=Nej&id=5796, men den sender alle på en gang stadig. Ps. har du icq ??

jeg burde vel kunne se om den reloader siden ikke ?

Ja det er fordi teksten ligger i formen og så man reloader siden er det ikke længere POST så derfor skal teksten overføres i querystringen ligesom Testmail=Nej eller skal det ligges ind i en session som så kan læses ...

jeg har fået det til at kører sådan:
response.redirect ("ghostmailer.asp?testmail=Nej&Subject=" &  Request("Subject") & "&comm= " & Request("comm") & "&id=" & rs("id"))

Det virker ok.
skulle den ikke reloade siden for hver 10 mail den sender ??

jo det skulle den.

hmm det gør den ikke ?
Havde du icq ?

nej ikke på arbejde :)

Får du 50 mail?

ja jeg får alle mail's men den sender dem alle uden at reloade siden

ser dit link bar ca. sådan her ud:

ghostmailer.asp?testmail=Nej&Subject=blablalba&&comm=NogetComm&id=XX

Hvor blablabla er det du har skrevet i subject
NogetComm er det du har skrevet som Comm
Samt XX = et tal

for så har den reloaded og send

Når jeg har skrevet og trykket send, så står begynder den blå streg i bunden at bevæge sig, efter ca 1 minut loader den siden ghostmailer.asp?testmail=Nej&Subject=blablalba&&comm=NogetComm&id=5796 og den er færdig. Når jeg checker mail får jeg 50

Du kan evt prøve at ligge EmaiSend tallet ind i subejct på mailen:

Mail.Subject = EmailSend & ":" & Mail.EncodeHeader(Request("Subject"))

Så skulle du få 50 mail hvor subject er 1,2,3,4,5,6,7,8,9,10,1,2,3,4,5,6,7,8,9,10,1,2,3 osv.

Du vil se en blank side kort tid så loader den blank side så loader den bland side og så kommer form felterne frem igen...

den gør som du sagde 1,2,3,4,5,6,7,8,9,10,1,2,3,4,5,6,7,8,9,10 osv.
Men den reloader ikke siden.

Jo men du kan nok ikke nå at se det...
For så lænde den sender mail vil eks. IE's  e drejese rundt. Når de 10 er sendt så laver man redirect til samme side og igen vil "e" drejse rundt. "e" holder ført op med at dreje rundt når hele siden er loaded, samt returneret fra serveren.

Hvis den ikke reloaded siden vil du kun modtage 10 mail.
Du kan prøve at udkommentere redirect og se om du så ikke kun modtager 10 mails.

Du havde ret.

tror du så at jeg er ude over problemer med at firewallen timer ud fordi scriptet står og kører med dette script ?.

Tja det er et godt spørgsmål..

Siden reloades men om firewalen acceptere det som en ny side og resetter timeren, det ved jeg vist ikke nok om firewalls om til at udtale mig om.

oki men du har fået point aligevel.
Ps. jeg har sat counteren til 1 også lavet en update der skriver ok i et felt så jeg kan holde øje med hvor mange der er sendt.