Dim MyDB As Database
Dim MyRS As dao.Recordset
Dim TheAddress As String
Dim stDocName As String
Set MyDB = CurrentDb
Set MyRS = MyDB.OpenRecordset("qryEmailFlyer")
Do Until MyRS.EOF
TheAddress = MyRS![EmailAddress]
stDocName = "Movie Program"
DoCmd.SendObject acReport, stDocName, acFormatSNP, TheAddress, , , "movie program Starting " & Text2, "If you cannot view please download the viewer at http://www.microsoft.com/downloads/details.aspx?FamilyID=b73df33f-6d74-423d-8274-8b7e6313edfb&DisplayLang=en", False
ok there is no easy way of doing this but can i send the reports to a folder let it be t:\emails then find all files in that folder as one email and just before we start the process delete all files in that folder. i will be sending them as snp files
some one sent me this code to send more than one report can someone tell me how to intrate it with my code
Dim OL As Outlook.Application, OI As Outlook.MailItem, OA As Outlook.Attachments
Set OL = Outlook.Application
Set OI = OL.CreateItem(olMailItem)
OI.CC = "email@example.com"
OI.BCC = "firstname.lastname@example.org"
OI.Subject = "Sample"
OI.Body = "Hi there"
Set OA = OI.Attachments
OA.Add "L:\FMS\REPORTS\Lease.xls", olByValue, 1, "Leasing Report"
OA.Add "L:\FMS\REPORTS\Action.xls", olByValue, 1, "Action Report"
OA.Add "L:\FMS\REPORTS\Finance.xls", olByValue, 1, "Finance Report"