Emailing Multiple Queries to Multiple Email

[Telejazzer]

Hi All,

I'm new this forum and I've been using Excel for a while before starting a new job and recently start using Access again. I'm finding it more useful specially with call logs and analysis.
I just started sending emails of queries to multiple emails from the database.



I basically wish to:

Run a query for a particular employee and email the result of that query to that employee then go to the next query for the next employee to send.

In other words:


While Table of Employees not empty
Run Query for Employee (1)
Email the result of the Query to Employee (1)
End Do

It might just be a simple solution but I'm kinda stuck at the moment. Would appreciate any input.

[ranman256]

Have a listbox on the form with those you want to email.
Scroll thru the list , send as you go.

Sub SendListEmails()
Dim vTo, vBody, vSubj, vRpt
For i = 0 To lstBox.ListCount - 1
  lstBox = lstBox.ItemData(i)
  vRpt = lstBox
  vSubj = "Subject:" & lstBox.Column(1)
  vTo = lstBox.Column(2)
  vBody = "message body"
  
  DoCmd.SendObject acSendQuery, "qsQuery1", acFormatXLS, vTo, , vSubj, vBody
  DoCmd.SendObject acSendQuery, "qsQuery2", acFormatXLS, vTo, , vSubj, vBody
Next
End Sub