your going to need to use the Outlook module, so goto tools references and select then your code might be something like this
Sub emailReport()
On Error Resume Next
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookAttach As Outlook.AttachmentSet objOutlook = CreateObject("Outlook.Application"

Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
.to ="Joebloggs@joe.com"
.cc ="Frank@joe.com"
.subject ="how to mail"
.body ="make sense >?"
.Attachments.Add "C:\temp\myspreadhseet.xls", olByValue, 1, "Rich Text Report"
.send
end with