Jeg vil gerne sende mail ud til en række administratorer i en db, når en begivenhed indtræffer, men det er kun den første på listen, der modtager mail...hvorfor?:-)
--- Koden: --- (kun den der sender skulle sende mail'sne) strSQL = "SELECT email " &_ "FROM Brugere " &_ "WHERE brugerStatusID = 2 "'2 = administrator set rs = objConn.Execute(strSQL) While Not rs.EOF Set mailTilAdmin = CreateObject("CDONTS.NewMail") mailTilAdmin.BodyFormat = 0 mailTilAdmin.From = "afsender@myDomain.dk" mailTilAdmin.To = rs("email") mailTilAdmin.Subject = "subject" mailTilAdmin.Body = "body" mailTilAdmin.Send Set mailTilAdmin = Nothing rs.MoveNext wend
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
Jeg ville gøre sådan her: strSQL = "Select email FROM Brugere WHERE brugerStatusID = 2" Set rs = objConn.Execute(strSQL) Set mailTilAdmin = CreateObject("CDONTS.NewMail")
If rs.eof or rs.bof then Response.Write "Der findes ingen administratorer i databasen." else Do While not rs.eof mailTilAdmin.BodyFormat = 0 mailTilAdmin.From = "afsender@myDomain.dk" mailTilAdmin.To = rs("email") mailTilAdmin.Subject = "subject" mailTilAdmin.Body = "body" mailTilAdmin.Send rs.movenext loop End if
' lukker alt igen Set mailTilAdmin = Nothing rs.close Set rs = nothing objConn.close Set objConn = nothing
Hvis det heller ikke virker så prøv at lave en COUNT med samme argumenter i din SQL sætning for at se hvor mange e-mail adresser den rent faktisk "fanger"..
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.