Here's a simple mailing module

Sub SendUpdate()
    Call MailData("subject string", "status file updated", "wherever@somewhere.com")
End Sub

Function MailData(mSubject As String, mMessage As String, Sendto As String, Optional CCto As String)
Dim eSubject As String, EBody As String
Dim app As Object, Itm As Variant
Set app = CreateObject("Outlook.Application")
Set Itm = app.CreateItem(0)
With Itm
.Subject = mSubject
.to = Sendto
 If Not IsMissing(CCto) Then .CC = CCto
.Body = mMessage
' .Save           ' This property is used when you want to saves mail to the Concept folder
 .Display      ' This property is used when you want to display before sending
' .Send         ' This property is used if you want to send without verification
' .Attachments.Add (Filename) ' Must be complete path'and filename if you require an attachment to be included
End With
Set app = Nothing
Set Itm = Nothing
End Function
You will have to include the attachment path and filename which would be the report sheet only.