ActiveX组件可以'；不要创建对象。尝试设置Outlook实例时

所以我遇到了一个小问题。我有一个旧的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，它可以正常工作，没有任何问题。On SET-OUTAPP=新建Outlook.Application-它可以正常工作，没有任何问题

现在，当我尝试在Windows 10、Office 16中运行此操作时，Outlook打开时，我无法执行相同的操作。这给了我一个错误的说法

ActiveX组件无法创建对象

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

---

知道为什么吗？

两个应用程序都以提升权限运行（以管理员身份运行）？@DmitryStreblechenko在Win 10中都以管理员（outlook和IDE）“管理员”身份运行，就像在“具有管理员权限的本地帐户”中一样？或者您是否明确单击应用程序并选择“以管理员身份运行”@DmitryStreblechenko-我没有选择以管理员身份运行，这是一个具有管理员权限的本地帐户。@DmitryStreblechenko-任何想法-它在Windows 7中工作，但在Windows 10中不工作？