Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Close ms outlook
Message
 
 
To
06/05/2005 09:26:47
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
01011574
Message ID:
01011585
Views:
12
This message has been marked as the solution to the initial question of the thread.
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)	&& 10 = contacts, 6 = inbox, 5 = sent items
>	oInbox.Display()
>	oOutLook.Quit()
>	Release oOutLook
>Endif
CATCH
ENDTRY
>
--sb--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform