Enviar email desde VFP7
Hola, me puedes indicar como tengo que hacer para poder generar un email con un reporte desde mi aplicación directamente, mejor si lo escribiera en pdf, ¿es esto posible? Tengo la impresora acrobat distiller ya instalada, pero quería automatizar que me pidiera el email y se colocara automático en la bandeja de salida. Gracias. Alfonso
1 respuesta
Respuesta de piraton
1
Acá te dejo un ejemplo muy bueno, pero genera un archivo de texto, la parte de pdf te la dejo para que la investigues ... algo he visto en www.davphantom.net
Código:
set date dmy
IF ! USED("articulos")
USE c:\TERRACOTA\Bases\articulos.dbf SHARE
set filter to existe &&ALIAS ftempo
ENDIF
sele articulos
set order to descrip
report form c:\TERRACOTA\Bases\precios_articulos TO FILE c:\lista_precios.txt ASCII
xfecha=dtoc(date())
Do FindWindow
Local lcPath, hWindow, lcDelimiter, lcFiles, lcMsgSubj
lcPath = "c:\TERRACOTA"
lcDelimiter = ";"
lcFiles = "C:\lista_precios.txt"
*+ lcDelimiter + "C:\tabla.dbf"
lcMsgSubj = "Adjuntamos Lista de Precios Actualizada al "+xfecha
Handle = GetActiveWindow()
= MAPISendDocuments ( Handle, lcDelimiter, lcFiles, lcMsgSubj, 0)
Set Default To (lcPath)
Procedure FindWindow
Declare Integer GetActiveWindow In user32
Declare Integer MAPISendDocuments In mapi32;
INTEGER ulUIParam, String lpszDelimChar,;
STRING lpszFullPaths, String lpszFileNames,;
INTEGER ulReserved
Endproc
Código:
set date dmy
IF ! USED("articulos")
USE c:\TERRACOTA\Bases\articulos.dbf SHARE
set filter to existe &&ALIAS ftempo
ENDIF
sele articulos
set order to descrip
report form c:\TERRACOTA\Bases\precios_articulos TO FILE c:\lista_precios.txt ASCII
xfecha=dtoc(date())
Do FindWindow
Local lcPath, hWindow, lcDelimiter, lcFiles, lcMsgSubj
lcPath = "c:\TERRACOTA"
lcDelimiter = ";"
lcFiles = "C:\lista_precios.txt"
*+ lcDelimiter + "C:\tabla.dbf"
lcMsgSubj = "Adjuntamos Lista de Precios Actualizada al "+xfecha
Handle = GetActiveWindow()
= MAPISendDocuments ( Handle, lcDelimiter, lcFiles, lcMsgSubj, 0)
Set Default To (lcPath)
Procedure FindWindow
Declare Integer GetActiveWindow In user32
Declare Integer MAPISendDocuments In mapi32;
INTEGER ulUIParam, String lpszDelimChar,;
STRING lpszFullPaths, String lpszFileNames,;
INTEGER ulReserved
Endproc
