That was too easy, Sergey. :) That's what I get for thinking too hard, sometimes.
Thanks,
Jim
>Hi Jim,
>
>
>You can use TRY...ENDTRY to catch and ignore the error. See corrections in your code below.
>
>>
>>This is a minor thing I'm working on, but I have users on my network that leave outlook open and mess up my backup of their pst files located on a network share. I wanted to make a small exe that could be put in the scheduled tasks on each workstation, just before the backup time would close outlook, if it is running.
>>
>>This works when there's an existing instance of outlook running. It dies when there is not one. Is there a way to determine if the program is running or not?
>>
>>
>>Public oOutLook, cVarType,oNameSpace,oInBox
>>_screen.Visible = .F.
>TRY
>>oOutLook = Getobject(,"Outlook.Application")
>>If Vartype(oOutLook) == 'O'
>> oNameSpace = oOutLook.GetNameSpace("MAPI")
>> oInBox = oNameSpace.GetDefaultFolder(6)
>> oInbox.Display()
>> oOutLook.Quit()
>> Release oOutLook
>>Endif
>CATCH
>ENDTRY
>>
Jim Newsom
IT Director, ICG Inc.