Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Close ms outlook
Message
De
06/05/2005 09:26:47
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Titre:
Close ms outlook
Divers
Thread ID:
01011574
Message ID:
01011574
Vues:
51
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.
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform