Can I assume you are going to be using Microsoft Outlook? If so, you can use VBA to use the Outlook Object to create an email. If you are here is a snippet of the coding: (Make sure you add a reference in Access to the Microsoft Outlook Object Library for this to work)
Dim strHtml 'a variable to store the results of your query in a string
Dim olApp As Outlook.Application
Dim olNS As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Dim olMail As Outlook.MailItem
Dim olAtt As Outlook.Attachments
Set olApp = CreateObject("Outlook.Application")
Set olNS = olApp.GetNamespace("MAPI")
Set olFolder = olNS.GetDefaultFolder(olFolderInbox)
Set olMail = olFolder.Items.Add("IPM.note")
Set olAtt = olMail.Attachments
With olMail
.Subject = [Your Subject Here]
.To = emailAddress
.HTMLBody = strHtml ' use .body for regular text
.send
End With
Of course you would have to build a string by looping through the recordset of the query. This can be done easily - even to build an HTML table that would display the data in a table.
One last thing: If you really are willing to play around, you could download and add in a reference to the Redemption Object (
http://www.dimastr.com/redemption/) which would allow you to have Access send the email without Outlook prompting you with a security message every time you try to email.
