Ошибка выполнения 1004 Ошибка приложения или объекта для ActiveWorkbook.EnvelopeVisible

Question

Я пытаюсь отправить содержимое листа по электронной почте, но при запуске я получаю эту ошибку:

Ошибка выполнения 1004 Ошибка приложения или объекта *

Private Sub SendMail_Click()
    Dim P As Range
    Set P = Sheet1.Cells

    ActiveWorkbook.EnvelopeVisible = True

    ' SET Outlook APPLICATION OBJECT.
    Dim objOutlook As Object
    Set objOutlook = CreateObject("Outlook.Application")

    ' CREATE EMAIL OBJECT.
    Dim objEmail As Object
    Set objEmail = objOutlook.CreateItem(olMailItem)

    With P.Parent.MailEnvelope.Item
        .to = "test123@test.com"
        .Subject = "Ticket Verification and Repro Status"
        .Body = "Hell All, Please move the tickets in verification and reproduction"
        .Send        ' DISPLAY MESSAGE.
    End With

    ' CLEAR.
    Set objEmail = Nothing:    Set objOutlook = Nothing
End Sub