使用“从excel发送电子邮件需要哪个对象库？”；邮包；财产？

我正在尝试通过MS Excel发送电子邮件，并使用下面的代码。代码以前运行良好。但是，在重新安装windows操作系统和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

---

您是否已从

Tools>References

中选择了

Microsoft Outlook库

？是的，我已选择了“Microsoft Outlook库”