Checking if Outlook is running

[driessen]

Hello,

How can I check in FWH if Outlook is running on my PC?

I tried to use GetTasks() but Outlook can not be found in the tasklist.

Is there a difference in Outlook 2003, 2007, 2010 or 2013?

Anyone any idea?

Thanks a lot in advance.

[Antonio Linares]

Michel,

This may help you:

Code: Select all  Expand view

  if FWGetOleObject( "outlook.application" ) == nil
      MsgInfo( "outlook is not available" )
   else  
      MsgInfo( "outlook is available" )
   endif

[driessen]

Antonio,

Thanks for you efforts, but I'm afraid it isn't working.

I always get the message "Outlook is available" whether Outlook is running or not.
If Outlook is not running, I can see that Outlook is started invisible for a short moment, then the message "Outlook is available" appears and then Outlook is quited.

I did another test. I added the source you suggested into my source and I removed the try catch end section, just to see what happens.
Then I got this error : "Error TOleAuto/65535 TOLEAUTO:GETACTIVEOBJECT"

Any idea?

[Colin Haig]

Michel

Maybe the following code will help

Code: Select all  Expand view

static function lfSetMail(oCMSFolder)
local NameSpace,oInbox
TRY
   oOL := TOleAuto():New( "Outlook.Application" )
   oNameSpace   := oOL:Get( "GetNameSpace", "MAPI" )
   oInbox       := oNameSpace:Get( "GetDefaultFolder",6)  // 6 = Inbox-Folder
   TRY
      oCMSFolder   := oInbox:Folders("cmsmail")
   CATCH
      MsgAlert('No CMSMAIL Folder Setup')
   END
CATCH
   MsgAlert('Outlook Not Installed')
END
return(oCMSFolder)
 

Regards

Colin

[driessen]

Colin,

Thanks a lot for trying to help me.

I don't want to know if Outlook is installed or not, I want to know if Outlook is running.

Why do I want to know if Outlook is running? Because I want to prevent that Outlook is started moren than one time.

[Colin Haig]

Michel

I justed tested outlook and it appears you can not start it multiple times - you can have multiple child windows open
but they are closed when the top window is closed.
Tested on Windows 8 and Outlook 2010.

Regards

Colin

[nageswaragunupudi]

Because I want to prevent that Outlook is started more than one time.

if GetActiveObject( cName ) succeeds without error, it means the app is already running.

So the logic should be

Code: Select all  Expand view

TRY
    oObj := GetActiveObject( cApp )
    ? 'already running'
CATCH
    TRY
       oObj := CreateObject( cApp )
       ? 'Created now'
    CATCH
       ? 'app not available
    END
END

The FWH function FWGetOleObject( cApp ) does exactly the above.
I advise you to use FWGetOleObject( cApp ) instead of TOleAuto():New(...) to achieve what you wanted.

Please see the code in \fwh\source\function\olefuncs.prg

[driessen]

Thanks a lot everybody for trying to help me.

Unfortunately, whatever I try, I always get the error : "Error TOleAuto/65535 TOLEAUTO:GETACTIVEOBJECT".

What am I doing wrong?

[nageswaragunupudi]

Thanks a lot everybody for trying to help me.

Unfortunately, whatever I try, I always get the error : "Error TOleAuto/65535 TOLEAUTO:GETACTIVEOBJECT".

What am I doing wrong?

If Outlook is not already running, you will and should get this error and getting the error is the way to know that it is not running.

Please see my explanation above.

[driessen]

Helle everyone,

Of course, I made a mistake by not using TRY .. CATCH ... END in my test.

Now it's running just fine.

Thank you very much for your help.

[nageswaragunupudi]

Good.
So I advise you to use FWGetOleObject( cApp ) instead of TOleAuto():New(...).

This function checks if the application is already active and if active uses the active object.
If not active opens the application.

[driessen]

Mr. Rao,

Thanks a lot for your advice.