J.mail til alle emails fra min DB i Access

du skal køre en loop...

et eksempel;

Set Conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"DBQ=\"&(Server.MapPath(\".\")) &\"\\mailing.mdb; DefaultDir=DBQ=\"&(Server.MapPath(\".\")) &\"\\;Driver={Microsoft Access Driver (*.mdb)};\"
    SQL = \"SELECT * from mailingliste\"
    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next
        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        JMail.ServerAddress = \"din.mail.server\"
        JMail.Charset = \"iso-8859-1\"
        JMail.ContentTransferEncoding = \"8bit\"
        JMail.Sender = \"afsenders emailadresse\"
        JMail.Subject = request(\"header\")
        JMail.AddRecipient send(\"email\")
        JMail.Body = request(\"tekst\")   
        JMail.Priority = 3
        JMail.Execute
        set JMail = nothing
send.movenext
loop
conn.close

Et objekt for hver post er nok at overdrive lidt ?

        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        JMail.ServerAddress = \"din.mail.server\"
        JMail.Charset = \"iso-8859-1\"
        JMail.ContentTransferEncoding = \"8bit\"
        JMail.Sender = \"afsenders emailadresse\"
        JMail.Subject = request(\"header\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"DBQ=\"&(Server.MapPath(\".\")) &\"\\mailing.mdb; DefaultDir=DBQ=\"&(Server.MapPath(\".\")) &\"\\;Driver={Microsoft Access Driver (*.mdb)};\"
    SQL = \"SELECT * from mailingliste\"
    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next

        JMail.AddRecipient send(\"email\")
send.movenext
loop
conn.close
        JMail.Body = request(\"tekst\")   
        JMail.Priority = 3
        JMail.Execute
        set JMail = nothing

hvor mange \"Recipient\" kan den tager per email?

Kan dette lade sig gøre

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"DBQ=\"&(Server.MapPath(\".\")) &\"\\Adresse.mdb; DefaultDir=DBQ=\"&(Server.MapPath(\".\")) &\"\\;Driver={Microsoft Access Driver (*.mdb)};\"
    SQL = Select * From Adresse where Brev = \'X\'\"
    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next
        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        JMail.ServerAddress = \"mail.sportsworld.dk\"
        JMail.Charset = \"iso-8859-1\"
        JMail.ContentTransferEncoding = \"8bit\"
        JMail.Sender = \"Morten@sportsworld.dk\"
        JMail.Subject = request(\"header\")
    JMail.Body = request(\"indhold\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"DBQ=\"&(Server.MapPath(\".\")) &\"\\Adresse.mdb; DefaultDir=DBQ=\"&(Server.MapPath(\".\")) &\"\\;Driver={Microsoft Access Driver (*.mdb)};\"
    SQL = Select * From Adresse where Brev = \'X\'\"
    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next       
send.movenext
loop
conn.close
    JMail.AddRecipient send(\"email\")
        JMail.Priority = 3
        JMail.Execute
        set JMail = nothing

%>

jeg mener dette!

<%

    SQL = Select * From Adresse where Brev = \'X\'\"
    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next
        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        JMail.ServerAddress = \"mail.sportsworld.dk\"
        JMail.Charset = \"iso-8859-1\"
        JMail.ContentTransferEncoding = \"8bit\"
        JMail.Sender = \"Morten@sportsworld.dk\"
        JMail.Subject = request(\"header\")
    JMail.Body = request(\"indhold\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"DBQ=\"&(Server.MapPath(\".\")) &\"\\Adresse.mdb; DefaultDir=DBQ=\"&(Server.MapPath(\".\")) &\"\\;Driver={Microsoft Access Driver (*.mdb)};\"
    SQL = Select * From Adresse where Brev = \'X\'\"
    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next       
send.movenext
loop
conn.close
    JMail.AddRecipient send(\"email\")
        JMail.Priority = 3
        JMail.Execute
        set JMail = nothing

%>

fejl igen igen

<%

        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        JMail.ServerAddress = \"mail.sportsworld.dk\"
        JMail.Charset = \"iso-8859-1\"
        JMail.ContentTransferEncoding = \"8bit\"
        JMail.Sender = \"Morten@sportsworld.dk\"
        JMail.Subject = request(\"header\")
    JMail.Body = request(\"indhold\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"DBQ=\"&(Server.MapPath(\".\")) &\"\\Adresse.mdb; DefaultDir=DBQ=\"&(Server.MapPath(\".\")) &\"\\;Driver={Microsoft Access Driver (*.mdb)};\"
    SQL = Select * From Adresse where Brev = \'X\'\"
    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next       
send.movenext
loop
conn.close
    JMail.AddRecipient send(\"email\")
        JMail.Priority = 3
        JMail.Execute
        set JMail = nothing

%>

Mener ikke der er nogen begrænsning på hvor mange der kan sendes til med en mail.

der kommer denne fejl

SQL = Select * From Adresse where Brev = \'X\'\"
------^

et lille \" manglede men

Microsoft OLE DB Provider for ODBC Drivers error \'80040e10\'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/Kontakt/opretmail.asp, line 18

og det er
set send = conn.execute( SQL )

Har i glemt mig

JEG OPRETTER NYT SPØRSMÅL

Jeg laver et spørsmål til Netsrac med point