jmail - sender ikke til alle email adr.
Jeg bruger jmail til at sende nyhedsbreve med, MEN problemet er at scriptet undlader at sende til den sidste email adr. i db'enHer er min kode, nogen som kan finde fejl ? ( det er der nok )
Set jmail = Server.CreateObject("JMail.SMTPMail")
With jmail
jmail.ServerAddress = mailserver
jmail.Sender = afsender_email
jmail.SenderName = afsender_navn
jmail.Subject = subject
jmail.HTMLBody = "<html><body>" & body & "</body></html>"
jmail.Priority = priority
Set rs = Conn.Execute("SELECT KundeEmail FROM Kundedatabase")
If Not rs.EOF Then
Do While Not rs.EOF
jmail.AddRecipient(rs("KundeEmail"))
Response.Write "Sender e-mail til: " & rs("KundeEmail") & "<br>"
rs.MoveNext
Loop
Else
Response.Redirect("nyhedsbrev_opret.asp")
End If
If modtager_liste <> "" Then
jmail.HideRecipients = modtager_liste
End If
jmail.Execute() 'Sender e-mails
jmail.Close()
End With
Set jmail = Nothing
