CreateObject报错

如图，我电脑上正常安装了Outlook，也一直在正常使用。电脑OS是WIN7，打开VB使用的管理员权限。
前段时间这条代码还能正常执行，最近发现它总是报错，帮忙分析原因和对策，谢谢！！
Dim obj As Object
Set obj = CreateObject("outlook.application")’运行期错误429，ActiveX原件无法创建