AspEmail on error resume next Del 2

mail.from  skal være fra et valid domæne!!!

prøv f.eks at sætte den til boobedude@jubii.dk

Det er klart nok at det ikke virker... idet at du bare forhindrer fejlmeddelsen, når du afsender hele mailen.

Du er nødt til at validere hver enkel email addresse, hvis du vi sikre at det ikke går galt.

cthun >> mailen der sendes fra er en valid mail jeg har bare ikke skrevet den her.

rou >> Hvordan kunne det se ud ?

har selv løst det:

ConnectStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &server.mappath("../db/subs.mdb")
        Set rs = Server.CreateObject("adodb.recordset")
        rs.Open "emails", ConnectStr, 2, 3
    on error resume next
        While not rs.EOF
          strHost = "post.tele.dk"
          Set Mail = Server.CreateObject("Persits.MailSender")
          Mail.Host = strHost
          strPath = Server.MapPath("nyhedbilled")
          Mail.From = "info@zzz.dk"
          Mail.Charset = "ISO-8859-1"
          Mail.AddAddress rs("emails")
          Mail.Subject = Mail.EncodeHeader(Request("Subject"))
          Mail.Body = Request("comm")
          Mail.AddAttachment strPath & "\nyhed.gif"
      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
    rs.close