Please help to email reports in snp files

[JT]

I am trying to send multiple emails with attached files at once.
The code should take each record and populate to the report then attached
that report to email and send it. The email address has in each record in the
table.
My table has around 1000 records, so i need to email around 1000 records
with attached file.
Please help. Thank you.

Dim db As DAO.Database
Dim rs As DAO.Recordset

Dim strEmail As String
Dim strID As String
Dim strLetterName As String

Dim stDocName As String
Dim stPath As String
Dim stFile As String

stDocName = "rpt_Letter"
stFile = Dir(strID & ".snp")

Set db = CurrentDb()
Set rs = CurrentDb.OpenRecordset("select id, LetterName, EmailTo from
tblLetter")

With rs
If (Not .BOF) And (Not .EOF) Then
..MoveFirst
strEmail = .Fields("EmailTo")
strID = .Fields("id")
strLetterName = .Fields("LetterName")
..MoveNext
End If

If (Not .BOF) And (Not .EOF) Then
Do Until .EOF
strEmail = .Fields("EmailTo")
strID = Reports![rpt_Letter].Report![txtid] ' how to populate data to the
attached report?
strLetterName = Reports![rpt_Letter].Report![txtName] ' how to populate data
to the attached report?
..MoveNext
Loop
End If
..Close
End With

DoCmd.SendObject acReport, stDocName, acFormatSNP, strEmail, , , "test",
"Testing...", , stFile

End Sub