运行时错误'429'Active X组件无法创建对象。从Windows 7升级到Windows 10后代码不再工作

Question

我已使用excel VBA在Windows 7上引用Outlook来设置自动电子邮件宏。此后，我已升级到Windows 10，并且在新应用程序上运行时收到标题中列出的错误。我已经尝试了先前线程中显示的许多内容，但无法解决问题。

我尝试使用早期绑定方法：

Set objOutlook = CreateObject("Outlook.Application")

代替尝试：

Set objOutlook = New Outlook.Application

但这不起作用。

代码如下：

Dim outlookapp As Object
Dim outlookmailitem As Object

Set outlookapp = CreateObject("Outlook.Application")
Set outlookmailitem = outlookapp.createitem(0)