CreateObject no longer works

[tcaylor]

Hi,

Recently I had VBA code that I had used for years to encounter errors. I narrowed it down to the creation of objects.

This no longer works and gives a 429 or a 438 error:

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

This works:

Dim OlApp As Outlook.Application
Set OlApp = New Outlook.Application

So New works and CreateObject does not. Other people using this code can still run it using CreateObject.

We are all using Windows 10 and Office 365

Thanks,
tcaylor

[BrokenDome]

Mr. tcaylor,

Good morning sir!! This may be a little over my head but I will take a stab at it. You might want to try something more like this:

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

Not 100% sure if this will solve your problem, but it's worth a shot.

Dome

[tcaylor]

BD,

Thank you for your reply. Using the OlApp As Object is what I had originally. I had changed it to OlApp As Outlook.Application trying to get it to work.

thanks,
tcaylor

[jet2004uk]

Maybe no help but.....
In certain code I was using CreateObject("Outlook.Application") would also throw up an error due to Outlook not being open and running, once it was open the code ran fine.
Our code is linked to network computers automatically sending emails through Outlook via excel, so Outlook needed to be running before the code would run.

Regards
J

[tcaylor]

J,

Thanks for your reply. Neither CreateObject or New will work when Outlook is closed but I know that it used to. I know that sounds vague.

tcaylor