Email Spreadsheet from Access with multiple tabs

[chowda]

Hello.

I've been using sendobject to send excel reports out automatically. Some of
these reports can be consolodated into one report on multiple tabs. I used
transferspreadsheet to get the queries to post onto seperate tabs on a
spreadsheet but now cannot figure out how to get Access to get the
spreadsheet and email it out. Has anyone done this? Thanks in advance.

 

[Eric Blitzer]

Not with a macro but here is some code written by Arvin Meyer

Private Sub Command0_Click()
'Arvin Meyer 03/12/1999
'Updated 7/21/2001
On Error GoTo Error_Handler

Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem

Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)

With objEmail
.To = "(e-mail address removed)"
.Subject = "Look at this sample attachment"
.body = "The body doesn't matter, just the attachment"
.Attachments.Add "C:\Test.htm"
'.attachments.Add "c:\Path\to\the\next\file.txt"
.Send
'.ReadReceiptRequested
End With

Exit_Here:
Set objOutlook = Nothing
Exit Sub

Error_Handler:
MsgBox Err & ": " & Err.Description
Resume Exit_Here

End Sub