Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Close ms outlook
Message
From
06/05/2005 09:26:47
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Title:
Close ms outlook
Miscellaneous
Thread ID:
01011574
Message ID:
01011574
Views:
50
Hi all,

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.
oOutLook = Getobject(,"Outlook.Application")
If ALLTRIM(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
Jim Newsom
IT Director, ICG Inc.
Next
Reply
Map
View

Click here to load this message in the networking platform