do while not, loop

[moogie]

Using a small loop to send e-mail to a mailing list. Format is as follows.

>>>>>>>>>>>>>

Do While NOT Recordset1.EOF
mailBody = GP_GenerateMailBody() 'index.htm,multi,onsubmit
GP_SendHtmlMail "sales@genecon.com.au",Recordset1.Fields.Item("Email&quot.Value,"","E-mail Subject Here","

http://www.genecon.com",mailBody,"mail.bigpond.com"

Recordset1.MoveNext
Loop

>>>>>>>>>>>>

For some reason, this loop will ONLY send the FIRST record in the database, then gives up.

Anyone have any idea why?

Matthew

 

[JuanitaC]

Are you sure your recordset is returning more than one record?

I don't know why the Do While NOT isn't working, but you could use While NOT ... WEND instead. That should work.

While NOT Recordset1.EOF
mailBody = GP_GenerateMailBody() 'index.htm,multi,onsubmit
GP_SendHtmlMail "sales@genecon.com.au",Recordset1.Fields.Item("Email&quot.Value,"","E-mail Subject Here","

http://www.genecon.com";,mailBody,"mail.bigpond.com"

Recordset1.MoveNext
WEND

 

[Tarwn]

If you are ordering in your SQL statement, then it returns the recordset with the rs pointer pointing to whatever used to be the first record. Try doing a Recordset1.MoveFirst before you enter your loop