使用“ mailenvelope”属性从excel发送电子邮件需要哪个对象库？

Question

我正在尝试通过MS Excel发送电子邮件，并使用下面的代码。该代码以前工作正常。但是在重新安装Windows OS和Microsoft Office之后，该代码不再起作用。错误：“对象库未注册”

代码如下所示

Sub Send_email()

ActiveSheet.Range("A1:D10").Select

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope

.Item.to = "myemailaddress@myemail.com"
.Item.Subject = "Test EMail"
.Item.send

End With

End Sub