COMO SABER SI OUTLOOK ESTA ABIERTO O CERRADO?

[Manuel Zevallos]

Hola Amigos...tengo una consulta:

Como Saber si Microsoft Outlook esta abierto?

Lo que pasa es que tengo una aplicion que envia mensajes por Outlook y si este está cerrado se trunca. Quisiera poder controlar mi envio evaluando primero si este se encuentra abierto o cerrado.

Agradeceré sus comentarios

--

Atentamente,     Manuel Zevallos B.

[Cristobal Galvan]

http://groups.google.com/group/publicesvfoxpro/browse_thread/thread/fed264d0a10a0e68

 

Me lo encontre aca:

IF YaActiva() 
   Return (.f.) 
EndIf 

*--------------------------------------- 
* FUNCTION YaActiva() 
*---------------------------------------- 
* Comprueba que la aplicación no se esta ejecutando 
* Invoca a IsActive() descripta anteriormente 
*---------------------------------------- 
FUNCTION YaActiva() 
LOCAL llRet, lcCaption 
llRet = .F. 
lcCaption = _SCREEN.Caption 
*--- Renombra temporariamente el caption de la app 
_SCREEN.Caption = "_" + lcCaption 
If IsActive(lcCaption) 
*--- Si ya esta activo 
MESSAGEBOX("Este sistema ya se encuentra en ejecución : "+lcCaption,16,"Empresa abc Sac") 
llRet = .T. 
EndIf 
_SCREEN.Caption = lcCaption 
Return (llRet) 
EndFunc 
*---------------------------------------- 
*---------------------------------------- 
* FUNCTION IsActive(tcCaption) 
*---------------------------------------- 
* Verifica si una aplicación ya está activa 
* USO: ? IsActive("Calculadora") 
*---------------------------------------- 
* ? IsActive("Nombre aplicacion") 
Function IsActive(tcCaption) 
Declare INTEGER FindWindow IN WIN32API ; 
STRING cNULL, ; 
STRING cWinName 
Return FindWindow(0, tcCaption) # 0 
EndFunc 

---

--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
 
Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com

[Manuel Zevallos]

Gracias Cristobal..lo probaré..

Atentamente,     Manuel Zevallos B. RPM #331278 RPC 9-8958-4264 Claro   http://manuelzevallos.es.tl