Nyhedsbrev til JMail

MailTo = \"xxx@xxx.dk\"

=

MailTo = rs(\"email\")

og så skal du køre en loop indtil alle mails er sendt

Ja det har jeg prøvet mig lidt frem med, men hvor skal loopen indsættes?

do while not rs.eof

din mail-dims

rs.movenext
loop

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"../Databaser/Lokalsiden.mdb\")
Conn.Open DSN

SQL = \"SELECT * FROM Nyhedsbrev\"
Set rs = Conn.Execute(SQL)
Do While Not rs.eof

Mailhost = \"mail.votus.dk\"
MailSubject = \"Nyhedsbrev\"
MailFrom = \"info@votus.dk\" 
MailTo = rs(\"Email\")

Dim Indhold
Indhold = \"Dette er blot en test\"


Set Mail = Server.CreateObject(\"JMail.SMTPMail\")
Mail.ServerAddress = MailHost
Mail.Subject = MailSubject
Mail.AddRecipient = MailTo
Mail.Sender = MailFrom
Mail.Body = Indhold

Mail.Execute

rs.movenext
Loop
%>

Jeg får følgende fejl i linien:
Mail.AddRecipient = MailTo

Object doesn\'t support this property or method: \'Mail.AddRecipient\'

/pfp

prøv først at tjekke med en alm mail du skriver i steder for at bruge databaseudtrækket

Så er problemet løst.

Mail.AddRecipient = MailTo
skal åbentbart være
Mail.AddRecipient MailTo

altså uden =.

Tak for hjælpen.

/pfp