Using CreateOleObject('Outlook.Application') causes “Server execution failed” error

Hi,

We have written an application in Delphi XE3 that sends emails via Outlook OLE.  FYI - see source code.

It has been working perfectly well for years until I upgraded to Windows 10.

Now I get "Server execution failed" whenever my Outlook 2013 is running.  
Of course it works when Outlook is not running.

It also works when I run both my EXE as well as Outlook as Administrator.  BUT, when I do this outlook complains when I try to create emails (Outlook doens't like being run as Administrator).

Here is a link which explains a lot about what is happening.  http://stackoverflow.com/questions/29338902/using-createoleobjectoutlook-application-causes-server-execution-failed-er

I just want to run my EXE as "normal" and Outlook as "normal" - ie not as administrator.  
But it is not working.  Why?

How can I make sure both processes run in the same security context?
xxx.txt
LVL 1
enigmasolutionsAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

xtermieCommented:
Maybe this documentation can help you out:
https://support.microsoft.com/en-us/kb/257757
enigmasolutionsAuthor Commented:
Hi xtermie, I couldn't see anything that would help.

How can I determine or set the security context that my program and outlook run in?
Sinisa VukSoftware architectCommented:
May my advice to (not so ) similar question helps?

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
enigmasolutionsAuthor Commented:
Hi Sinisa,  Your comment looks very good.  My first test to do similar to your idea still did not work.  But I will further investigate the other ideas / links.  Thank you.

This still did not work - the GetActiveOleObject failed.

try
    OutlookApp := GetActiveOleObject('Outlook.Application');
  except
    OutlookApp := CreateOleObject('Outlook.Application');
  end;
xtermieCommented:
Solution provided by experts along with valid suggestions
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Windows 10

From novice to tech pro — start learning today.