BIENVENIDO AL CENTRO DE PUBLICACIONES

Categoria: 001 - COBVIEW PRINT SUITE
Prioridad ESCRITURA: Administrators LECTURA: Public Level

[ VER TITULOS ] 

Titulo: :: Exportar a PDF y enviar por COBEMAIL ::
Descripcion:
Tip para un reporte exportarlo a PDF y enviarlo por email, sin intervencion del usuario

Nuestro programa debe de hacer las dos cosas, tanto exportar a PDF como enviar nuestro reporte en formato PDF por email en forma automatica.

Primero, una vez que tengamos el reporte armado con todas las TAGS COBVIEW, en lugar de visualizarlo, lo exportaremos a formato PDF.
El formato para convertirlo con una sola linea de comandos seria:

C:\COBVIEWPS\COBVIEW.EXE  myreporte.txt  /export-pdf  c:\temp\reporte.pdf

De esta manera, nuestro reporte llamado myreporte.txt, sera exportado a PDF, y colocado en el directorio c:\temp

Como siguiente paso, deberemos de enviar dicho archivo PDF como archivo adjunto, dentro de nuestro EMAIL.

 OPEN OUTPUT EMAILDATA.

MOVE "ALBERTO ORTEGA"       TO FROM-NAME.
MOVE "origen@dominio.com" TO FROM-EMAIL.
WRITE LINEA FROM EMAIL-FROM.

MOVE "ALBERTO ORTEGA"      TO TO-NAME.
MOVE "destino @ dominio.com" TO TO-EMAIL.
WRITE LINEA FROM EMAIL-TO.

MOVE "REPORTE DE VENTAS" TO SUBJECT-TEXT.
WRITE LINEA FROM EMAIL-SUBJECT.

MOVE "Este reporte lleva adjunto el reporte de ventas" TO MESSAGE-TEXT
WRITE LINEA FROM EMAIL-MESSAGE.
MOVE "del periodo 01/01/01 al 02/02/02" TO MESSAGE-TEXT
WRITE LINEA FROM EMAIL-MESSAGE.

MOVE "c:\temp\reporte.pdf" TO FILE-ATTACH.
WRITE LINEA FROM EMAIL-ATTACHMENT.

CLOSE EMAILDATA.

CALL "SYSTEM" USING "c:\cobemail\cobSendM.EXE EMAIL.TXT /nodel".

Notese que en el ejemplo anterior del archivo para enviar el email se cre un archivo con las TAGS que se llamo EMAIL.TXT, el cual se usa como parametro para la ejecucion del programa COBSENDM.

Espero que este ejemplo sea de ayuda.