Cómo Crear y enviar Archivo.PDF de forma Automática

Estoy tratando de hacer los siguiente:
Mi formulario genera un Reporte FRX y ademas permite exportarlo a PDF con PDFCreator, esto lo hace abriendo la pantalla Imprimir donde puedo elegir entre imprimir directamente a una impresora o a un archivo pdf, el nuevo requerimiento es:
Enviar este reporte con formato .PDF directamente a una dirección de correo, mi formulario tiene asociado una dirección de correo electrónico de un cliente, el remitente es quien está ejecutando el sistema. La idea es: que el archivo se envíe de forma automática sin la intervención del usuario, es decir, asignar el nombre del reporte, elegir el destinatario desde la base de datos, elegir el remitente de la base de datos, agregar el asunto y hecho!
He considerado hacerlo de esta manera:
1.- Convertir el Reporte. FRX a Reporte.PDF y guardarlo en una carpeta
2.- Ejecutar el envío, pasando los parámetros requeridos.
Lo que he encontrado:
Encontré algo sobre una función para hacer la conversión, y para hacer el envío, pero no le llego, no se como crear la función,

1 respuesta

Respuesta
1
¿Qué es lo que encontraste acerca de hacer el envío?
Saludos Alonso, lo que encontré es convertir el Archivo.FRX a Archivo.PDF y algo de código para enviar por correo archivos desde Foxpro :
*----------------------------------------------------------------
*---------Función para convertir frx a pdf automatización--------
*--recibe nombre reporte, nombre archivo pdf, ubicación del pdf--
*----------------------------------------------------------------
FUNCTION ImpPdf
PARAMETERS lcRepo, lcPdf, lcUbi
=proclase()
DECLARE Sleep IN WIN32API INTEGER
ReadyState = 0 && Variable indiquant que l'imprimante n'est pas prête
PDFCreator = CREATEOBJECT("PDFCreator.clsPDFCreator")
PDFReady = CREATEOBJECT("PDFEvent") && Voir définition de la classe plus bas
EVENTHANDLER(PDFCreator,PDFReady)
WITH PDFCreator
* Démarrer sans lancer les travaux :
.cStart ("/NoProcessingAtStartup")
* Options de sauvegarde :
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = "&lcUbi"
.cOption("AutosaveFilename") = lcPdf
.cOption("AutosaveFormat") = 0 && 0 pour le format PDF
* Modification temporaire de l'imprimante par défaut :
DefaultPrinter = .cDefaultprinter
.cDefaultprinter = "PDFCreator"
.cClearcache
ENDWITH
REPORT FORM &lcRepo TO PRINTER NOCONSOLE
* Lancement de l'impression :
PDFCreator.cPrinterStop = .F.
* On attend jusqu'à ce que l'imprimante soit prête ou que 10 secondes se
soient écoulées :
c = 0
DO WHILE (ReadyState = 0) AND (c < 10)
c = c + 1
Sleep (500)
enddo
PDFCreator.cDefaultprinter = DefaultPrinter
Sleep (200)
PDFCreator.cClearcache
PDFCreator.cClose
RELEASE PDFCreator
RELEASE PDFReady
endfunc
PROCEDURE proclase
*--------------------------------------------
* Définition de la classe gérant les événements :
DEFINE CLASS PDFEvent AS Custom
IMPLEMENTS __clsPDFCreator IN "PDFCreator.clsPDFCreatorOptions"
* Evénement qui indique si l'imprimante est prête
PROCEDURE __clsPDFCreator_eReady() AS VOID
ReadyState = 1
ENDPROC
* Gestion des erreurs
PROCEDURE __clsPDFCreator_eError() AS VOID
ENDPROC
ENDDEFINE
=imppdf(Mireporte, NombrePDF, Destino)
*************************************************************
LOCAL lcPerfil AS CHARACTER, lcContrasenia AS CHARACTER , ;
lcDestinatario AS CHARACTER, lcTema AS CHARACTER , ;
lcCuerpo AS CHARACTER
LOCAL loOutlook AS "Outlook.Application", ;
loNameSpace AS OBJECT, loMailItem AS OBJECT
#DEFINE LF_CR CHR(10)+CHR(13)
*-- Datos del Mail
lcPerfil = "Prueba"
lcContrasenia = "prueba"
lcDestinatario = "(xxxxxx)"
lcTema = "Prueba: " + TTOC(DATETIME())
lcCuerpo = "Prueba enviando un mail desde Visual FoxPro." + LF_CR
lcCuerpo = lcCuerpo + "Saludos." + LF_CR
*-- Creo objetos Outlook y NameSpace
loOutlook = CREATEOBJECT("Outlook.Application")
loNameSpace = loOutlook.GetNameSpace("MAPI")
*-- Ejecuto los métodos
loNameSpace.Logon(lcPerfil , lcContrasenia)
loMailItem = loOutlook.CreateItem(0)
loMailItem.Recipients.ADD(lcDestinatario)
loMailItem.Subject = lcTema
loMailItem.Body = lcCuerpo
loMailItem.Send
loNameSpace.Logoff
loNameSpace = .NULL.
loOutlook = .NULL.
Este código está hecho para enviar un archivo a un correo a través del Messenger, ensaya con esto tal vez te sirva de ayuda:
Procedure SendFile
  LParameters lcContact, lcFile
  * Este método no está representado como un UI alterno al Messenger,
* representa un demostración de la API del Messenger a la que puede
* acceder por vía Modelo de Objetos Componentes (COM). Usted puede
* usar estos métodos para enviar mensajes instantáneos automatizados,
* correo o archivos a cualquier usuario del MSN desde sus procesos
* automatizados. Adicionalmente, si ese usuario ha establecido mensajería
* móvil, el correo será enviado a su dispositivo móvil.
  Local lcExc As Exception
  Local lcMessengerObject, lcWsh, lcSendFileWindow
  Try
    lcMessengerObject = Createobject("Messenger.UIAutomation.1")
    lcWsh = Createobject("wscript.Shell")
    Catch To lcExc
        If Vartype(lcMessengerObject) <> "O" Then
            Messagebox("Ha ocurrido un error al cargar Windows Messenger." + Chr(13);
            + "Asegúrese que tenga instalado Windows Messenger 4.7" + Chr(13);
            + "o una versión reciente de este programa.", 32, "Enviar archivo")   
        Return .F.                
          Else
              Messagebox(lcExc.Message, 16, "Enviar mensaje")
        Endif
  Endtry
  Try
    lcSendFileWindow = lcMessengerObject.SendFile(lcContact, lcFile)
    SendKeys("{Enter}", .F., lcWsh)
    lcSendFileWindow.Close
    lcSendFileWindow = Null
    Catch To lcExc
      GetOleError(lcExc)
  Endtry
Endproc
Procedure SendKeys
  Lparameters KeyValues, lcIsLiteral, lcWsh
  Local i. lcChar, lcKeys
  If Vartype(lcWsh) = "O"
    If lcIsLiteral
      lcKeys = ""
        For i = 1 To Len(KeyValues)
          lcChar = Substr(KeyValues, i, 1)
          Do Case
            Case lcChar = "{"
                lcKeys = lcKeys + "{{}"
              Case lcChar = "}"
                  lcKeys= lcKeys + "{}}"
              Otherwise
                  lcKeys = lcKeys + lcChar
          Endcase      
        Endfor   
        KeyValues = lcKeys   
        KeyValues = Strtran(KeyValues,"^","{^}")
        KeyValues = Strtran(KeyValues,"+","{+}")
        KeyValues = Strtran(KeyValues,"%","{%}")
        KeyValues = Strtran(KeyValues,"~","{~}")
        KeyValues = Strtran(KeyValues,"[","{[}")
        KeyValues = Strtran(KeyValues,"]","{]}")
      Endif
    lcWsh.SendKeys(KeyValues)
  Endif
Endproc
Procedure GetOleError
  Parameters lcException
  #DEFINE MSGR_E_ALREADY_LOGGED_ON Val("0x81000304")
  #DEFINE MSGR_E_NOT_LOGGED_ON           Val("0x8100031e")
  #DEFINE E_INVALIDARG                   Val("0x81000304")
  #DEFINE MSGR_E_LOGON_UI_ACTIVE   Val("0x81000315")
  Local lcResult, lcMessage
  If Vartype(lcException) = "O"
    lcResult = Val(Substr(lcException.Message, At("0x", lcException.Message ), 10))
    Do Case
      Case lcResult == MSGR_E_ALREADY_LOGGED_ON
            lcMessage = "El usuario actual ha ingresado." && "The current user is already signed in."
        Case lcResult == E_INVALIDARG
            lcMessage = "Falló la prueba de validación de los valroes ingresados." + Chr(13);
            + "El nombre o contraseña no pueden contener espacios" + Chr(13);
            + "retornos de carro, o avances de línea."
            && "Values provided failed validation tests. The sign-in name or password cannot contain spaces, carriage returns, or linefeed characters."
        Case lcResult == MSGR_E_NOT_LOGGED_ON
            lcMessage = "Debe estar registrado en el Messenger para realizar esta operación."
            && "You must be logged into Messenger to perform this operation."
        Case lcResult == MSGR_E_LOGON_UI_ACTIVE
            lcMessage = "No puede llamar al Autoingreso mientras el cuadro de diálogo" + Chr(13);
            + "ingresar cliente esté habilitado y visible." 
            && "You cannot call the AutoSignin method while the client Sign In dialog box is enabled and visible."
        Otherwise 
            lcMessage = lcException.Message
      Endcase
  Endif
  Messagebox(lcMessage, 48, "Enviar archivo")
Endproc
Pruébalo y me comentas...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Guardar informe en una ruta especifica y con el nombre de campos específicos a pdf.

Pues te comento que gracias a toda tu ayuda el día lunes a expensas de algún error que le detecte el fin de semana se pondrá a trabajar el sistemita, migrare todos los registros de ASPEL y empezaremos con este sistema. Por lo que viene, este tema que...
1 respuesta

Hipervínculo y generar pdf

Estoy haciendo una base de datos en access 2003 y tengo alguna duda, te agradecería tu ayuda, te comento el caso Hipervínculo Quiero unir un documento pdf a un registro de Access, El documento pdf se llama igual que el campo "ref" de una tabla de...
1 respuesta

Enviar usando visual fox pro

Necesito hacer que desde una aplicación en visual fox pro, se envíen automáticamente mails a varios usuarios. Alguien me puede explicar como puedo hacer esto.
1 respuesta

Remover "Enter" de un campo memo en VFP

Exportando una tabla de vfp a txt me tope con el detalle de que tiene campos memo, al no tener muchos datos pues los convertí a una cadena; el detalle es que tiene unos cuantos "enter" (salto de linea y retorno de carro), pensé en usar algo así...
1 respuesta

Crear un archivo VCS (vCalendar)

Necesito un poco de ayuda con un tema que tiene como loco. Jajajaja Mi nombre es Abel, y tengo la siguiente duda. Alguien sabe la manera de crear archivos *. Vcs para Outlook vía FoxPro El archivo vcs para los que no lo saben es el archivo que puede...
1 respuesta

Generar Pdf automáticamente

Desearía saber cómo hago para enviar un reporte de vfp a pdf sin necesidad que el sistema me pregunte la ruta y el nombre del archivo, el nombre del archivo se lo daría yo automáticamente a través de código. Tengo instalada una impresora tipo PDF en...
2 respuestas

Imprimir directamente en la impresora matriz de puntos

Necesito me ayudes a realizar el envío de la impresión en una matriz de puntos. Te comento, tengo un formulario de facturación y quiero ir imprimiendo a medida que vaya haciendo las cosas por ejemplo tengo en el formulario un botón command "Nuevo...
1 respuesta

Convertir imágenes a texto

Tengo unas imágenes jpg en los que hay texto y quisiera saber si hay algún programa que me pueda convertir ese texto jpg en formato de texto como pdf o doc o cualquier otro formato que pueda modificar.
2 respuestas

Como combinar pdf con base de datos de Access.

Tengo una base de datos donde almacena los datos de alumnos de una escuela y el informe que genero es su boleta de calificación. Todo estaba muy bien hasta que me enviaron el formato oficial de la boleta de calificación en pdf hasta eso se puede...
1 respuesta