Enviar Reporte hecho en FoxPro a un e-mail

Zulvic
27 de Agosto del 2003
Hola consegui este codigo en la ayuda de visual foxpro, este es un formulario, y funciona, pero lo que envia es un registro especifico desde una base de datos a el correo a enviar, lo que quiero es enviar un REPORTE y que la persona que lo reciba lo pueda visualizar e imprimir, Necesito ayuda!!!!! como hago!!!!!!!



IF fontmetric(1, 'MS Sans Serif', 8, '') # 13 OR ;
fontmetric(4, 'MS Sans Serif', 8, '') # 2 OR ;
fontmetric(6, 'MS Sans Serif', 8, '') # 5 OR ;
fontmetric(7, 'MS Sans Serif', 8, '') # 11
this.setall('fontname', 'Tahoma')
ELSE
this.setall('fontname','MS Sans Serif')
ENDIF
this.setall('fontsize',8)
#DEFINE DATAERR_LOC "No se pudo encontrar la base de datos recopilacion.DBC. Asegúrese de que el directorio Samples de la ficha Ubicaciones de archivos del cuadro de diálogo Opciones tiene el valor correcto."
LOCAL lcDataDir
* Check to see if OCX installed and loaded.
IF TYPE("THIS.ctrMapiBtn.oleMMess") # "O" OR ISNULL(THIS.ctrMapiBtn.oleMMess)
RETURN .F.
ENDIF
* Check to see if OCX installed and loaded.
IF TYPE("THIS.ctrMapiBtn.oleMSess") # "O" OR ISNULL(THIS.ctrMapiBtn.oleMSess)
RETURN .F.
ENDIF
lcDataDir = HOME(2)
DO CASE
CASE FILE(HOME(2)+"datatestdata.dbc")
lcDataDir = HOME(2)
CASE FILE(HOME()+"samplesdatatestdata.dbc")
lcDataDir = HOME() + "Samples"
OTHERWISE
MESSAGEBOX(DATAERR_LOC)
RETURN .F.
ENDCASE
USE lcDataDir+"datatestdata!products"

Jes?art?z Seijas
27 de Agosto del 2003
Yo lo que hago es generar un archivo PDF (Adobe Acrobat Reader) desde el reporte de vfp y luego lo adjunto al e-mail.

Puedes bajar e-reports desde http://www.foxtoolbox.com/downloaddemo.dbx?product=ereports, es muy facil de usar.