Good morning,

With the source code you can see below I get execute outlook if it is not 
open, maybe somebody knows other code for this.

 RUTINA QUE SIRVE PARA ABRIR OUTLOOK SINO ESTÁ ABIERTO

DbeSetDefault("DELDBE")

DbeInfo( COMPONENT_DATA, DELDBE_FIELD_TOKEN, "©" )
DbeInfo( COMPONENT_DATA, DELDBE_DELIMITER_TOKEN, "©" )

cFIL := ::cDIR + "TAREAS.TXT"
/*
RunShell( "/C taskkill /F /IM PFE32.EXE ")
RunShell( "/C taskkill /F /IM NOTEPAD.EXE ")
*/
IF FExists( cFIL )
   FErase( cFIL )
ENDIF

RunShell( "/C tasklist> " + cFIL )

oSrv := dsDbServer():new(cFIL,.F.,.F.,.T.,"DELDBE")

cOUT := "NO"

DO WHILE !oSrv:EOF()

   cLIN := oSrv:FieldGet("FIELD1")

   IF !IsNil(cLIN)

      cTAR := SubStr( oSrv:FieldGet("FIELD1"),01,25 )
      cTAR := ALLTRIM(cTAR)

      IF cTAR = "OUTLOOK.EXE"
         cOUT := "SI"
      ENDIF

   ENDIF

   oSrv:Skip()

ENDDO

oSrv:close()

IF cOUT = "NO"
   RunShell( "/C START OUTLOOK.EXE " )
ENDIF

 FIN DE RUTINA QUE SIRVE PARA ABRIR OUTLOOK SINO ESTÁ ABIERTO

Regards,
César.

Estimado Cesar

Visita la pagina de Pablo Botella, ahi tiene encontraras los fuentes de una 
rutina que reemplaza a runshell y se llama TRunProcess e igulamente puedes 
usar Disphelper para las rutinas de excel son mucho mas rapida y seguras que 
usar activex
Encontraras ejemplo en el link http://www.xbwin.com/forum.html

Saludos
Hector



"Csar Calvo" <ccalvoc@telefonica.net> escribi en el mensaje 
news:54761bc8$116cf82f$5835@news.alaska-software.com...
> Good morning,
>
> With the source code you can see below I get execute outlook if it is not 
> open, maybe somebody knows other code for this.
>
>  RUTINA QUE SIRVE PARA ABRIR OUTLOOK SINO EST ABIERTO
>
> DbeSetDefault("DELDBE")
>
> DbeInfo( COMPONENT_DATA, DELDBE_FIELD_TOKEN, "" )
> DbeInfo( COMPONENT_DATA, DELDBE_DELIMITER_TOKEN, "" )
>
> cFIL := ::cDIR + "TAREAS.TXT"
> /*
> RunShell( "/C taskkill /F /IM PFE32.EXE ")
> RunShell( "/C taskkill /F /IM NOTEPAD.EXE ")
> */
> IF FExists( cFIL )
>   FErase( cFIL )
> ENDIF
>
> RunShell( "/C tasklist> " + cFIL )
>
> oSrv := dsDbServer():new(cFIL,.F.,.F.,.T.,"DELDBE")
>
> cOUT := "NO"
>
> DO WHILE !oSrv:EOF()
>
>   cLIN := oSrv:FieldGet("FIELD1")
>
>   IF !IsNil(cLIN)
>
>      cTAR := SubStr( oSrv:FieldGet("FIELD1"),01,25 )
>      cTAR := ALLTRIM(cTAR)
>
>      IF cTAR = "OUTLOOK.EXE"
>         cOUT := "SI"
>      ENDIF
>
>   ENDIF
>
>   oSrv:Skip()
>
> ENDDO
>
> oSrv:close()
>
> IF cOUT = "NO"
>   RunShell( "/C START OUTLOOK.EXE " )
> ENDIF
>
>  FIN DE RUTINA QUE SIRVE PARA ABRIR OUTLOOK SINO EST ABIERTO
>
> Regards,
> Csar.

OK Hector, thanks for the info.
Regards.
César.

"Hector Pezoa"  escribió en el mensaje de 
noticias:3ddb2a3b$75648e10$8c0d@news.alaska-software.com...

Estimado Cesar

Visita la pagina de Pablo Botella, ahi tiene encontraras los fuentes de una
rutina que reemplaza a runshell y se llama TRunProcess e igulamente puedes
usar Disphelper para las rutinas de excel son mucho mas rapida y seguras que
usar activex
Encontraras ejemplo en el link http://www.xbwin.com/forum.html

Saludos
Hector



"César Calvo" <ccalvoc@telefonica.net> escribió en el mensaje
news:54761bc8$116cf82f$5835@news.alaska-software.com...
> Good morning,
>
> With the source code you can see below I get execute outlook if it is not 
> open, maybe somebody knows other code for this.
>
>  RUTINA QUE SIRVE PARA ABRIR OUTLOOK SINO ESTÁ ABIERTO
>
> DbeSetDefault("DELDBE")
>
> DbeInfo( COMPONENT_DATA, DELDBE_FIELD_TOKEN, "©" )
> DbeInfo( COMPONENT_DATA, DELDBE_DELIMITER_TOKEN, "©" )
>
> cFIL := ::cDIR + "TAREAS.TXT"
> /*
> RunShell( "/C taskkill /F /IM PFE32.EXE ")
> RunShell( "/C taskkill /F /IM NOTEPAD.EXE ")
> */
> IF FExists( cFIL )
>   FErase( cFIL )
> ENDIF
>
> RunShell( "/C tasklist> " + cFIL )
>
> oSrv := dsDbServer():new(cFIL,.F.,.F.,.T.,"DELDBE")
>
> cOUT := "NO"
>
> DO WHILE !oSrv:EOF()
>
>   cLIN := oSrv:FieldGet("FIELD1")
>
>   IF !IsNil(cLIN)
>
>      cTAR := SubStr( oSrv:FieldGet("FIELD1"),01,25 )
>      cTAR := ALLTRIM(cTAR)
>
>      IF cTAR = "OUTLOOK.EXE"
>         cOUT := "SI"
>      ENDIF
>
>   ENDIF
>
>   oSrv:Skip()
>
> ENDDO
>
> oSrv:close()
>
> IF cOUT = "NO"
>   RunShell( "/C START OUTLOOK.EXE " )
> ENDIF
>
>  FIN DE RUTINA QUE SIRVE PARA ABRIR OUTLOOK SINO ESTÁ ABIERTO
>
> Regards,
> César.