sende mails til flere brugere...

Hov - skulle måske lige nævne det er JMAIL

SQL = "SELECT email FROM brugere WHERE type = 2"
Set RS = RS.Execute(SQL)
count = 0
do until RS.eof
    email=RS("email")
       
        JMail.AddRecipient email
        JMail.Execute
        count = count +1
        Set Jmail = Nothing
RS.MoveNext
    Loop
RS.Close
Set RS = Nothing

Hmm... det ser heller ikke ud til at virke

Dette kode sender en mail til en af gangen:

    strSQL = "SELECT email FROM brugere WHERE type = 2"
    objRec.Open strSQL, Conn
    if not objRec.EOF then
      do while not objRec.EOF
        Set JMail = Server.CreateObject("JMail.SMTPMail") 
        JMail.ServerAddress = "websmtp.xxxxx.dk"
        JMail.Sender = "xxxxx.dk"
        JMail.SenderName = "xxxxxxxx"
        JMail.Subject = "xxxxxxxxxx"
        JMail.Body = "xxxxxxxxx"
        JMail.AddRecipient objRec("email")
        JMail.Priority = 1
        JMail.Silent = True
        JMail.Execute
        Set JMail = Nothing
      objRec.movenext
      loop
    end if
    objRec.Close
    Set objRec = Nothing

omalley >> Husk lige at hvis du skal sende til rigtig mange er der en god chance for at scriptet timer ud.