Using SendReport to email to each recipient listed in a query

[colin spalding]

I have a report which contains the invoices for all customers (ie one
page for each customer) the email address is recorded in each customer
record. What I would like to do is either send the appropriate page to
the appropriate customer; or run the report for each customer listed in
a query seperately all at the push of a button. I don't want much do I?

[NthDegree]

I have the same thing, a table that contains an email address for each
customer and I do it like this:

Const strEmailTable As String = "tblEmailAddrs"
Const strReportName As String = "rptChargesMain"
Dim db As Database
Dim rs As Recordset
Dim strSQL As String
Dim strEmailList As String

Set db = CurrentDb
strSQL = "Select * from " & strEmailTable
Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
With rs
Do Until .EOF
DoCmd.OpenReport strReportName, acViewDesign, , , acHidden

(What ever code you need to modify query or report)

DoCmd.Close acReport, strReportName, acSaveYes
strEmailList = !emailaddrs
DoCmd.SendObject acSendReport, strReportName, acFormatRTF,
strEmailList, , , "Quarterly Reports", "Report Attached", False
.MoveNext
Loop
End With

Return

"colin spalding" <co***********@btopenworld.comwrote in message
news:11**********************@s13g2000cwa.googlegr oups.com...

>I have a report which contains the invoices for all customers (ie one
page for each customer) the email address is recorded in each customer
record. What I would like to do is either send the appropriate page to
the appropriate customer; or run the report for each customer listed in
a query seperately all at the push of a button. I don't want much do I?