i have a dashboard and wanted to send via outlook email. i'm new to VBA and i'm using excel 2010. below is the code when i run the code their an error (Run-time error '-2147467259 (80004005)':
Method 'MailEnvelope' of object'_Worksheet'failed). here is the code. kindly assist and thank you

Sub Send_Email_With_snapshot()

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sheet1")

Dim lr As Integer
lr = sh.Range("A" & Application.Rows.Count).End(xlUp).Row

sh.Range("A1:H" & lr).Select

With Selection.Parent.MailEnvelope.Item
.to = sh.Range("p3").Value
.cc = sh.Range("p4").Value
.Subject = sh.Range("p5").Value
End With

MsgBox "Done"

End Sub