To save a query/table as an Excel file:
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Your Query Or Table Name", "Path to be saved and filename", True
To send as an email lookup:
Docmd.SendObject
This code is in this forum hundreds of times, people ask the same question...