Email Reports from Access 97

[Adams]

I have been given a project to email Access reports on a weekly bases to managers at their locations. I am currently running the report selecting each office location and emailing the report from Access. This is very time consuming running each location (50) and then entering the email address and the body message. I am sending the reports .rtf. I have the email addresses in a table for each location. Would each file need to be output with a file name example(C:\mystuff\office110) and then attached to an email? Could you recommend an easier process? or explain to me what I need to do to automate this project.

Thanks

 

[ajrimmer]

Here is something I've done along similar lines.
Don't forget you may want to work round the Outlook Security if using OL2000


Set db = CurrentDb
Set users = db.OpenRecordset("tblWhoIsSentReports")

users.MoveFirst

DoCmd.SetWarnings False
DoCmd.Echo False

Do While Not users.EOF

report = users![ReportName]
recipmail = users!

DoCmd.Sendobject acSendReport,report,acFormatRTF,recipmail,,,"subject",
"message" , false

users.MoveNext
Loop