Почтовый конверт объекта листа не удалось ОШИБКА VBA

Question

Я не очень хорош в VBA, но я нашел ниже код для моего использования.Когда я пытался запустить этот код, я получаю сообщение об ошибке

'- 2147319779 (8002801d)': метод 'mailenvelope объекта листа.

Что является причиной ошибки?

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("L6").Value
.cc = sh.Range("L7").Value
.Subject = sh.Range("L8").Value
.attachments.Add "C:\Users\User\Desktop\Projects\Mar- 
 2018.xlsx"
.send
End With

MsgBox "Done"

End Sub