I want it to send query results only to the person it affects, not every in the email list. How do I proceed?


I have:

Private Sub cmdEmail_Click()
Dim dbs As DAO.Database
Dim rs As DAO.Recordset

Dim strSQL As String
Dim eSub, eText As Variant
strSQL = "Select * from [NMC: email test]"
eSub = Me!msgSubject
eText = Me!msgMessage
Set rs = CurrentDb.OpenRecordset(strSQL)
rs.MoveFirst
Do While Not rs.EOF
DoCmd.SendObject acSendQuery, "NMC: email test", acFormatHTML, rs![NMC Email Address], , , eSub, eText, False
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

DoCmd.SendObject
End Sub