Run-time error when attempting to open Outlook

[Robyn_P]

Every since mt database was created several years ago I have used the following code to connect to outlook and it has worked fine. Nowadays however it fails with the run-time error show in the attached sceenshot.

Dim oApp As Outlook.Application
Set oApp = CreateObject("Outlook.Application")

I have also tried

Dim oApp As Object
Set oApp = CreateObject("Outlook.Application")

I'm completely stumped so any help would be appreciated.

[Welshgasman]

No idea, sorry, but it has occurred many times for many users.

https://www.google.com/search?q=crea...hrome&ie=UTF-8

[Robyn_P]

No idea, sorry, but it has occurred many times for many users.

https://www.google.com/search?q=crea...hrome&ie=UTF-8

Thanks for the comment. I did Google extensively for a solution. I'll go through some of these instances for the problem. It's worked perfectly for years. Very strange.

[Welshgasman]

Have you had any updates at all?
I had a problem with my outlook, where I had set it for opening in admin mode on my new laptop, which was an old works laptop.
Access could not open Outlook saying it required elevation. Took me a while to identify that I needed to run Access in admin mode to be be able to open Outlook at that level.

Don't ask me why I had Outlook in admin mode. It would have been ages ago when I was using it in work, and for some reason or another.