MailEnvelope error

[Svmaxcel]

I ran below code and got error method mailenvelope of object _worksheet failed

Sub test1 ()
Range("A1").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope.item
  .Introduction = ""
  .Item.To = ABC@BBC.com
  .Item.CC = ""
  .Item.Subject = Subject
  .Item.Send
End With
End Sub

 

[Svmaxcel]

Tried this step also, but same error

 

[Svmaxcel]

I tried to create outlook object to send email, but in that case inserting the data table would be a challenge, so I thought of using mailenvelope what's wrong in my code

 

[Svmaxcel]

My new code for mail envelope, still getting error.