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?
 
Sinisa VukCommented:
May my advice to (not so ) similar question helps?
0
 
xtermieCommented:
Maybe this documentation can help you out:
https://support.microsoft.com/en-us/kb/257757
0
 
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?
0
 
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;
0
 
xtermieCommented:
Solution provided by experts along with valid suggestions
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.