Create And Email Multiple Reports, Access 2010

[jkid817]

Here is what I have. I have a table with customer account numbers, a table with customer emails, and a query that creates a report on the customer’s equipment (Equipment Health Report). These tables are linked but I need to keep my two tables seperate so I can't combine them into one table.



What I need is a way to have the report run by getting a customer account number, run the report, email the report to the customer, and then go get the second account number. I need this to repeat until all of the customers have received a report without any further input from me except to hit the outlook send button. I need this report to be sent as an attachment to the email.

P.S. – I’m a Visual Basic noob so please no techno speak.

Thanks

[RuralGuy]

My favorite email link: http://www.granite.ab.ca/access/email.htm

[pfales]

I am not sure if this will be of any help but here is some code a friend gave me to assist in emailing my reports from ACCESS. I hope it hepls you of course you will need to make modifications to meet your needs.

""Code Start"""Public Function GetLocEmail(strLocation As String, strLocEmail As String)
Dim db As Database
Dim rst As Recordset
Dim varBookmark As Variant
Dim strMessage As String
Dim strSeek
Set db = CurrentDb()
Set rst = db.OpenRecordset("tblLocation", dbOpenDynaset, dbSeeChanges)
With rst
' Set the index.
strSeek = "[LocationCode] = '" & Trim([strLocation]) & "' "
' Store current bookmark in case the Seek fails.
varBookmark = .Bookmark
.FindFirst strSeek
If .NoMatch Then
MsgBox ("Invalid Location Code Entered")
Else
If Len(Trim(![POC1Email]) > 0) Then
strLocEmail = Trim(![POC1Email])
If Len(Trim(![POC2Email])) > 0 Then
strLocEmail = strLocEmail & ";" & Trim(![POC2Email])
End If
End If
End If
.Close
End With
End Function"

""Code End""