Ошибка во время выполнения '429' Active X компонент не может создать объект.Код больше не работает после обновления до Windows 10 из Windows 7

Question

Я настроил автоматический почтовый макрос, используя Excel VBA, ссылаясь на Outlook на Windows 7. С тех пор я обновился до 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)