hjælp...!

kan du ikke skrive den kode duy sender email\'sene med??

Mangler der ikke semicoloner mellem adresserne?

sub sendAllFamily(tid,maxid,fid)
    dim body,email,link,rs_send
    set rs_send=server.createObject(\"adodb.recordset\")
    sql=\"select email,id,thread_id from mestbl\"
    sql=sql & \" where (thread_id=\"& tid & \" or id=\"& tid & \") and id<>\" & maxid &\"\"
    sql=sql & \"and forumid=\"&fid&\" and isChecked=1\"
    \'sql=sql & \"and forumid=\"&fid
    \'response.write sql\'***debug
    rs_send.open sql,conn
    do while not rs_send.eof
    on error resume next
        \'change it to point to you server!
        link=\"http://www.xxx.dk/enter.asp?fid=\" & fid & \"&id=\" & maxid & \"&tid=\" & tid
        email=rs_send(\"email\")
        response.write email
        body=\"Der er kommet en besvarelse til et indlæg, hvor du har bedt om at blive underrettet på \"
        body=body & \"www.xxxt.dk!! Du kan hoppe til indlægget \"
        body=body & \"her  \" & link & vbCrLf & vbCrLf
        body=body & \"bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla\" & vbCrLf
        body=body & \"bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla.\" & vbCrLf & vbCrLf

        Dim JMail
        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        \' This is my local SMTP server
        JMail.ServerAddress = \"xxx.xxx.dk\"
   
        \' mail config settings
        JMail.Charset = \"iso-8859-1\"
        JMail.ContentTransferEncoding = \"8bit\"
       
        JMail.Sender = \"xxx@xxx.dk\"
        JMail.Subject = \"Der er kommet et indlæg på www.boykot.dk\"
        JMail.AddRecipient email
        JMail.Body = body
       
        \' 1 - highest priority (Urgent)
        \' 3 - normal
        \' 5 - lowest
       
        JMail.Priority = 3
       
        \' Send it...
        JMail.Execute
        set JMail = nothing
    rs_send.movenext
    loop
    rs_send.close
    set rs_send=nothing
end sub

den sender til en email af gangen..Det du ser er output af de mails der er forsøgt at blive sendt til

Du kan sikkert bruge et mailingsliste system, som det der ligger på http://www.netcoders.dk/sourcecode.asp?mode=seek&seekword=mailingliste&type=all

/per

Din serveradress er noget lignende \"smtp.ccccc.dk\", ikke?

Ellers ligner det til forveksling noget kode jeg har i drift. Det skal virke.

Jeg bruger dog ikke:
        JMail.Charset = \"iso-8859-1\"
        JMail.ContentTransferEncoding = \"8bit\"
       
Det er klart den udskriver email-adresserne, når du laver response.write email.

Hvad står der i recordsættet, der hvor den går ned? En invalid post???       

du skal sende alle email\'s på en gang så skulle det gerne virke, det ville jo være det samme hvis kesperten brugte det system der til at afsende email\'s så ville det jo tage flere timer når du oprettede et spørgsmål :)

ja, server adresse er mail.xxx.dk.

Det virker også, men det går kold når den støder på en email den ikke kan sende til.

Man burde vel kunne få den til at arbejde med at sende de email i baggrunden mens brugeren ikke mærker noget

ja netop tpiil!! :))

Men hvordan?

Så skal du vel \"bare\" have gang i noget \"On Error\"?

erroren kommer vel først når scriptet timer out, og det kan jeg ikke vente på

lav et rs.movenext her på det her, så skulle det gerne virke:

åben sql her
JMail.AddRecipient email
rs.movenext

jeg har ikke tid lige nu til at rette i koden :(

Tjae - prøv med noget i denne retning lige efter execute:
if Err.Number > 0 then
Set errJmail = Server.CreateObject (\"JMAIL.SMTPMail\")
errJmail.ServerAddress = \"smtp.ccccc.dk\"
errJmail.AddRecipient \"konto@dinTekst.dk\"
errJmail.Sender = \"Fuck@noget.dk\"
errJmail.Subject = \"Fejl vedr.: \" & sSubject
errJmail.Body = txtVar & \"er en invalid mail i objRS.Fields(message_author_email)\"
errJmail.Priority = 3
errJmail.Execute
Set errJmail = Nothing
End if

Det virker her....

Sakset fra live code - som du kan se (sSubject) :-)

Det er fra asp101 forummet.

Jeg tror vitsen er, at den kan få fejlen \"oplyst\" med det samme, inden hele scriptet dør.

.. Du behøver selvfølgelig ikke sende en mail til dig selv med det samme - men fx aflive dit mail-objekt og lade løkken køre en runde til. (Logger af om lidt).

Prøv at skrive Jmail.Lazysend = True

Så venter den ikke på en status inden den går videre til næste mail, og det går MEGET hurtigere.

Mvh
Jesper

kanon!! Det var lige det jeg skulle bruge...
lav svar og point er dine

hvem skulle svare??

Jeg har lige lavet en lille omskrivning so du kun skal oprette objektet én gang. Det skulle gerne få det til at køre endnu hurtigere:

sub sendAllFamily(tid,maxid,fid)
    dim body,email,link,rs_send
    set rs_send=server.createObject(\"adodb.recordset\")
    sql=\"select email,id,thread_id from mestbl\"
    sql=sql & \" where (thread_id=\"& tid & \" or id=\"& tid & \") and id<>\" & maxid &\"\"
    sql=sql & \"and forumid=\"&fid&\" and isChecked=1\"
    \'sql=sql & \"and forumid=\"&fid
    \'response.write sql\'***debug
   
       
        Set JMail          = Server.CreateObject(\"JMail.SMTPMail\")
        JMail.ServerAddress = \"mail.blabla.dk\"
        JMail.Sender        = \"Sender\"
        JMail.Priority      = 3
        JMail.AddHeader    \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")       
    JMail.Charset = \"iso-8859-1\"
    JMail.ContentTransferEncoding = \"8bit\"

        rs_send.open sql,conn
        do while not rs_send.eof
    on error resume next
        \'change it to point to you server!
        link=\"http://www.xxx.dk/enter.asp?fid=\"; & fid & \"&id=\" & maxid & \"&tid=\" & tid
        email=rs_send(\"email\")
        response.write email
        body=\"Der er kommet en besvarelse til et indlæg, hvor du har bedt om at blive underrettet på \"
        body=body & \"www.xxxt.dk!! Du kan hoppe til indlægget \"
        body=body & \"her  \" & link & vbCrLf & vbCrLf
        body=body & \"bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla\" & vbCrLf
        body=body & \"bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla.\" & vbCrLf & vbCrLf

        \' mail config settings
       
        JMail.Sender = \"xxx@xxx.dk\"
        JMail.Subject = \"Der er kommet et indlæg på www.boykot.dk\"
        JMail.AddRecipient email
        JMail.Body = body
        JMail.Lazysend = TRUE
        \' Send it...
        JMail.Execute
            Jmail.ClearRecipients()

    rs_send.movenext
    loop
    set JMail = nothing
    rs_send.close
    set rs_send=nothing
end sub


Mvh
Jesper

smukt arbejde dudal!
Jeg siger tak