Emailing From Access

I have a field within a table called E-Mail. I want to send a newsletter to everyone withing the DB. I have created some code which is as follows:


Private Sub testemailer_Click()
Dim rsEmail As DAO.Recordset

Dim strEmail As String
Set rsEmail = CurrentDb.OpenRecordset("QryStoresEmailticked")

While rsEmail.EOF = False
strEmail = rsEmail.Fields("E-mail").Value + ","

DoCmd.SendObject acSendNoObject, , , "jo.bloggs@k-n.com", , _
strEmail, _
"UK KNLogin NewsLetter", , True, ""

rsEmail.MoveNext
Wend

Set rsEmail = Nothing


End Sub

Now this works but it opens an individual email per email address into the BCC part. That a major problem if you have over 1000 contacts to send to. How do i get all my email addresses from my DB into the BCC of an email?

Any help would be much appreciated!