Enviar Reporte hecho en FoxPro a un e-mail
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"
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"