AddreciepientBcc i Jmail?

Prøv denne her:

SQL = "select * from mailingliste"
    Set RS = conn.execute( SQL )

    Do while not RS.eof
        JMail.AddRecipientBCC ""& RS("email")&""
    RS.movenext
    loop
   

    JMail.Execute

meyer

Burde det ikke bare virke uden at brug BCC

Jeg prøver i aften!!
meyer you are great!

By the way, jeg har lige et andet spørgsmål:
Når man bruger PWS hvorfor fanden skal den så gå på internettet for at se ens side på localhost?? Der står "Registrerer Proxy-indstillinger" det synes jeg ikke er særligt fedt, ideen var jo at man skulle arbejde offline?

Sæt din forbindelse til "lokalnetværk" så gør den det ikke :o)

altså i internet-indstillinger!!

Hvordan gør man det?
Jeg har IE5.0 - jeg kan ikke helt finde det.

Gå ind i internetindstillinger, klik på forbindelse og vælg "Etabler forbindelse til internettet via lokalnetværket", så skulle den være der.

meyer :o)

<%
if session("login") = "ok" then

if request("mode") = "send" then
'****** SET PROGRAM TIL AT SENDE PROGRAM ******
'1 = JMAIL
'2 = CDONTS

mailertype = 1

'**********************************************

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
if mailertype = 1 then
        Set JMail = Server.CreateObject("JMail.SMTPMail")
        ' This is my local SMTP server
        JMail.ServerAddress = "mail.weekenden.dk"

        %>
       
        <%
        SQL = "select * from mailingliste"
            Set RS = conn.execute( SQL )
       
            Do while not RS.eof
                JMail.AddRecipientBCC ""& RS("email")&""
            RS.movenext
            loop
           
            JMail.Charset = "iso-8859-1"
                    JMail.ContentTransferEncoding = "8bit"
                   
                    JMail.Sender = "weekendmail@weekenden.dk"
                    JMail.Subject = request("header")
                    JMail.AddRecipient send("email")
                    JMail.Body = request("tekst")
                   
                    ' 1 - highest priority (Urgent)
                    ' 3 - normal
                    ' 5 - lowest
                   
        JMail.Priority = 3
       
    JMail.Execute
       
       
       
       
       
        set JMail = nothing
elseif mailertype = 2 then

        ' importance = 0        ' lav
        importance = 1        ' normal
        ' importance = 2        ' høj

        Set mailObj = CreateObject("CDONTS.NewMail")
   
        ' send email med parametre : fra email, til email, header, besked, importance
        mailObj.Send "afsenders emailadresse", send("email"), request("header"), request("tekst"), importance

        ' slet reference til CDONTS object
        Set mailObj = Nothing
end if


response.write "<FONT FACE='Arial' SIZE='2' COLOR='#000000'><STRONG>E-mail er sendt til : "& send("email") &"</STRONG></FONT><BR>"
send.movenext
loop
conn.close
else %>


Det virker ikke helt - den står bare og tænker uden at bruge modem'et

Fandt denne her til dig på netcoders:

<%    Set JMail = Server.CreateObject("JMail.SMTPMail")
   
    JMail.ServerAddress = "mail.domain.dk"


meyer :o)

    JMail.Sender = "din@e-mail.dk"

    JMail.Sendername = "Mailingliste"

    JMail.Subject = Request.form("subject")

    ' **** Modtager af e-mailen ( f.eks. din@email.dk ) ************
    JMail.AddRecipient "din@e-mail.dk"
   
    JMail.body = Request.form("tekst")

    JMail.Priority = 3

    JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

    SQL = "select * from mailingliste"
    Set RS = conn.execute( SQL )

    Do while not RS.eof
        JMail.AddRecipientBCC ""& RS("email")&""
    RS.movenext
    loop
   
    ' **** Sender E-Mailen ************
    JMail.Execute

    Response.write"<div align='center'><font size='+2'>Der er blevet sendt en e-mail til alle på mailing listen !</div>" & vbcrlf

    end if

    ' Lukker forbindelsen til Databasen
    Set conn = Nothing
%>

Pis, nu kan jeg ikke teste det - det andet script har fået min server til at gå kold - pik pik pik.

Men jeg prøver igen i morgen

Damn

Sorry meyer, du får dine point på et senere tidspunkt - jeg er inde i nogle virkelige problemer og jeg hjar brug for nogle poiints

Nå meyer, du får dine point alligevel.

Men dine svar har resulteret i at:
min mailingliste bliver lukket (farvel 3000 abbonnementer)
og at mit IE50 ikke virker.

Men det er selvfølgelig bare mig der ikke kan finde ud af at bruge lortet, og det er ikke din skyld.

Men det der med etabler forbindelse via. lan - det virker SLET ikke, den kan ikke finde nogen dokumenter på harddisken, og den kan ikke surfe på nettet bagefter. Hjælp mig!

Ikke via LAN, men via lokalnetværk!!

Og husk: http://localhost/blabla!!!

Når du skal på nettet må du logge på manuelt :o)

meyer

Oki doki.
Nu ved jeg godt at du ikke får point for det her spørgsmål, men gider du at fortælle mig hvad der er galt her:

<%
Linje 40-> Set DataConn = Server.CreateObject("ADODB.Connection")
    DataConn.Open "DBQ=c:\inetpub\wwwroot\contests.mdb;DefaultDir=c:\inetpub\wwwroot\;Driver={Microsoft Access Driver (*.mdb)}"
    SQL = "select * from list order by nr"
        set OnMenu = DataConn.execute( SQL )

do until OnMenu.EOF %>


Den siger:

Der opstod en Microsoft VBScript-kørselsfejl fejl '800a01f4'

Variablen er ikke defineret: 'dataconn'

/default.asp, linje 40

Jeg kan godt nok ikke se den!

Men prøv alligevel dem her før linie 40:

DIM DataConn, OnMenu

meyer

Jeg HAR fundet problemet, jeg skulle bare fjerne <% option.explicit %>

Men nu har jeg et andet problem, jeg HAR fået PWS til at virke, men den siger "ikke fundet" når jeg prøver at opdatere altså reloade siden.??