Hola.
Intento enviar dos mail consecutivos mediante el dde-word
Hago una llamada al sistema y utilizo el programa Blat para enviar el correo.
A continuacion lo vuelvo a enviar a una segunda direccion de correo.
El problema que tengo es que lo hace tan rapidamente que solo sale uno de ellos, omitiendo el otro.
Quisiera que enviara el primero y pasen unos segundos para enviar el segundo .
Mediante el comando
Código COBOL:
MOVE PARAMETROS-EMAIL TO DDE-WORD.
INVOKE CmDDE2 "Execute" USING DDE-WORD POW-SWSHOWMAXIMIZED RETURNING ReturnValue.
* Start timer
COMPUTE SW-TIMER = 1.
MOVE POW-TRUE TO "Active" OF CmTimer1.
PERFORM UNTIL SW-TIMER = 0 END-PERFORM. *>RETRASO LA ACCION
*>PERO SE QUEDA EN BUCLE
MOVE POW-FALSE TO "Active" OF CmTimer1.
*cambio PARAMETROS-EMAIL
MOVE PARAMETROS-EMAIL TO DDE-WORD.
INVOKE CmDDE2 "Execute" USING DDE-WORD POW-SWSHOWMAXIMIZED RETURNING ReturnValue.
*
Código COBOL:
**************timer
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 SW-TIMER PIC 99 GLOBAL EXTERNAL.
PROCEDURE DIVISION.
DISPLAY SW-TIMER .
COMPUTE SW-TIMER = 0.
Lo intento ralentizar con el timer, pero el evento se queda en bucle .
Como podria darle tiempo a que salieran los dos correos?
Gracias.