Estoy usando harbour con fwh 0710 para envio de mail
Cuando lo he cambiado de un server con w2000 a un server con w2003
estoy teniendo errores de harbour exception de forma aleatoria
No he llegado a saber por que se producen
He observado que mientras no responda al mensaje el programa sigue funcionando y cuando respondo termina
Alguien sabe como lo puedo quitar estos mensajes ???
No se si la imagen esta bien puesta
Este es parte del programa
El error lo da en ACTIVATE WINDOW oWnd ICONIZED
//----------------------------------------------------------------------------//
// FiveWin - Windows MAPI (mail services) support demonstration
//----------------------------------------------------------------------------//
#include "FiveWin.ch"
#include "Mail.ch"
//----------------------------------------------------------------------------//
FUNCTION Main()
SET DATE BRITISH
ERRORBLOCK()
DEFINE WINDOW oWnd TITLE "Correo AS/400"
DEFINE TIMER oTmr INTERVAL 30000 ACTION VeSiMail() OF oWnd
@ 0, 0 BITMAP FILENAME "MAIL400.BMP" SIZE 550, 300 OF oWnd
SET MESSAGE OF oWnd TO "(c) J.M.A. 18/04/2008"
ACTIVATE TIMER oTmr
SYSWAIT(2)
ACTIVATE WINDOW oWnd ICONIZED
SYSWAIT(5)
RETURN nil
//----------------------------------------------------------------------------//
Saludos y gracias
Cuando lo he cambiado de un server con w2000 a un server con w2003
estoy teniendo errores de harbour exception de forma aleatoria
No he llegado a saber por que se producen
He observado que mientras no responda al mensaje el programa sigue funcionando y cuando respondo termina
Alguien sabe como lo puedo quitar estos mensajes ???
No se si la imagen esta bien puesta
Este es parte del programa
El error lo da en ACTIVATE WINDOW oWnd ICONIZED
//----------------------------------------------------------------------------//
// FiveWin - Windows MAPI (mail services) support demonstration
//----------------------------------------------------------------------------//
#include "FiveWin.ch"
#include "Mail.ch"
//----------------------------------------------------------------------------//
FUNCTION Main()
SET DATE BRITISH
ERRORBLOCK()
DEFINE WINDOW oWnd TITLE "Correo AS/400"
DEFINE TIMER oTmr INTERVAL 30000 ACTION VeSiMail() OF oWnd
@ 0, 0 BITMAP FILENAME "MAIL400.BMP" SIZE 550, 300 OF oWnd
SET MESSAGE OF oWnd TO "(c) J.M.A. 18/04/2008"
ACTIVATE TIMER oTmr
SYSWAIT(2)
ACTIVATE WINDOW oWnd ICONIZED
SYSWAIT(5)
RETURN nil
//----------------------------------------------------------------------------//
Saludos y gracias
