Set a reference to the Microsoft Outlook Library and then create an object
reference...

Dim Outlook as New Outlook.Application

With Outlook.CreateItem(olMailItem)
.To = 'Email Address'
.Subject = 'Reports'
.Attachments.Add 'Identify file and location here
.Send
End With