Ap026Last api para pdf+email el último spool
Basado en SpoolPdfApi, hace más fácil el envío de un spool (el último) recién creado en el mismo job.
Por ejemplo, en un CL hacemos un listado de algo y queremos mandar ese listado en pdf por email.
Parametros de CALL AP026LAST:
-
nombre fichero pdf, sin extension, 20x, permite algunas
variables como &&DT2&&
Carpeta para pdf, 50x,
vacío para usar un valor por omision (carpeta temporal o \coprint\user o lo definido en
CoPrintIni como Defaultfolder=c:\Temp\Coprint)
o usar un valor de red como
\\servidor\carpeta o
\\DirIP\carpeta)
Direccion de destino correo email, 50x, se admiten dos separados con ;
Asunto del email, 30x. permite algunas
variables
Texto para el email, 50x. permite algunas
variables
firma, 10x, quien
firma el email, el texto de ese fichero.sgn se adjunta al final
spoolfile, 10x, nombre del fichero spool, como QSYSPRT etc. Los demás parametros del listado no hacen falta, se toman los del ultimo creado en ese job.
reserva, 10x, sin uso, enviar vacío
Este ejemplo de programa cl imprime un simple joblog, genera pdf y lo envía por email:
dcl &sp *char 10 value('QPJOBLOG') /* nombre del fichero de spool */
dcl &as *char 30 value('Asunto del correo')
dcl &tx *char 50 value('adjuntamos listado pdf Coprint')
dcl &fn *char 20 value('ejemplo_&&DT2&&')
dcl &em *char 50 value('ventas@TornillosGomez.es')
OvrPrtF file(QPJOBLOG) hold(*YES)
DSPJOB OUTPUT(*PRINT) OPTION(*JOBLOG) /* DspJob usa fichero QPJOBLOG */
CALL AP026LAST ('COPRTEST' &fn '\\serv\pdf\' &em &as &tx 'FIRMA2' &sp ' ')