Hejsan!
Hur går nyhetsbrev ut på egentligen?
Är det loop man kör för att maila allihopa eller hur gör man?
Tex:

<code>
<% Set Recset = ("Select email from medlemmar")

' Nu vill jag kontakta alla emailadresser genom Jmail...
' Hur gör jag?
' jag har en Jmail kod som ser ut såhär:

Meddelande = Replace(Request.Form("Meddelande"), vbCrLf, "<BR>" & vbCrLf)
Rubrik = Request.Form("rubrik")

Set jmail = Server.CreateObject("JMail.Message")

jmail.AddRecipient "nyhetsbrev@domain.com"
jmail.From = "Min Emailadress"
jmail.Subject = "" & Rubrik & ""
jmail.Body = "Nyhetsbrev"
jmail.appendHTML "" & Meddelande & "<br>"
jmail.appendHTML "</font>"

jmail.Send ("mail.domain.com")
</code>

Här ovan har jag angett mailet kommer skickas till nyhetsbrev@domain.com...
Hur ändrar jag detta och gör att istället för att den skall skickas till
nyhetsbrev@domain.com så skall den skickas till alla <%= Recset("email") %> som finns i tabellen email i databasen ?

Tacksam för svar!

jmail.AddRecipient Recset("email")

Är d4et så du menar?

Hej!
Jag använder detta, men jag vet inte ifall detta är rätt kod, ja har inte möjligheten att testa den för tillfället, men är detta rätt ?

<code>
<% ' ############### SKICKAR NYHETSBREV ############
If Request.Querystring("send") = "news" Then
If Not Session("access") = "inloggad" Then
Response.Redirect "admin.asp?logga=in"
End If

Set brev = Connect.Execute("Select email From medlemmar")

If brev.eof Then
Response.Write "Det finns inga emailadresser i databasen."
Else

Do Until brev.eof

Email = brev("email")
Rubrik = Request.Form("rubrik")
Meddelande = Replace(Request.Form("meddelande"), vbCrLf, "<BR>" & vbCrLf)

Set jmail = Server.CreateObject("JMail.Message")

jmail.AddRecipient Email
jmail.From = "nyhetsbrev@domain.com"
jmail.Subject = "" & Rubrik & ""
jmail.Body = "Detta meddelande skickades " & Now & ""
jmail.appendHTML "<font face=verdana size=1>"
jmail.appendHTML "" & Meddelande & "<br>"
jmail.appendHTML "</font>"

jmail.Send ("mail.domain.com")

Loop
brev.Movenext
End If
brev.Close
Set brev = Nothing

Session("skickadbrev") = "Nyhetsbrevet har nu skickats till alla medlemmar."
Response.Redirect "admin.asp?kat=nyhetsbrev"
End If %>
</code>