ActiveX组件无法创建对象。在尝试设置Outlook实例时

Question

所以我遇到了一个小问题。我有一个传统的VB6应用程序，当前在带有Outlook 2007的Windows 7上运行。

我们允许用户通过简单地点击按钮发送电子邮件（它会生成一些文书工作并通过电子邮件发送给另一个人）。我像这样初始化Outlook ......

Dim OutApp As Outlook.Application
Dim olMail As Outlook.MailItem

Set OutApp = New Outlook.Application

If OutApp Is Nothing = True Then
    Set OutApp = CreateObject("Outlook.Application")
End If

我可以打开Outlook，它没有任何问题。在SET OUTAPP =新的Outlook.Application - 它没有任何问题。

现在，当我尝试在Windows 10，Office 16中运行它时 - 在Outlook打开时我无法做同样的事情。它给我一个错误说明

  

ActiveX组件无法创建对象。

我使用相同的确切代码，每次它在Set OutApp = New Outlook.Application上给我一个错误。

知道为什么吗？