Enviar e-mail & Fast Reports

[Mauricio]

Hola,

Alguno pudo enviar correos desde la exportacion de Fast Reportes, sin pasar por los cuadros de dialogo de confirmacion.

algo asi:

Code: Select all

 
      :SetProperty("MAILExport", "FileName", "pdf_xml\" + alltrim(oCtes:Rfc)+cNombre+'.pdf' )
      :SetProperty("MAILExport", "OpenAfterExport", .T.)
      :SetProperty("MAILExport", "ShowDialog",.T.)
      :PrepareReport()
      :DoExport("MAILExport")

pero poder yo enviarle los parametros de quien envia, a donde, asunto, etc, etc


saludos,
Mauricio

[Daniel Garcia-Gil]

Hola

intenta esto

Code: Select all

   oFr:PrepareReport()
   oFr:SetProperty(cExpObj, "ShowDialog", .F.)
   oFr:SetProperty(cExpObj, "Address", "abcdefg@earth.xyz" )
   oFr:SetProperty(cExpObj, "ExportFilter", 1  )// or other
   oFr:SetProperty(cExpObj, "FilterDesc", "Envio de PDF" )
   oFr:SetProperty(cExpObj, "FromMail", "your-email@your-domain.com" )
   oFr:SetProperty(cExpObj, "FromCompany", "Your company" )
   oFr:SetProperty(cExpObj, "FromName", "Your Name" )
   oFr:SetProperty(cExpObj, "Login", "mylogin" ) //Login for smtp-server
   oFr:SetProperty(cExpObj, "Password", "*******" ) //Password for smtp-server
   oFr:SetProperty(cExpObj, "SmtpHost", "smtp.earth.xyz" )
   oFr:SetProperty(cExpObj, "Subject", "Subject-Text here" )

 

[Mauricio]

Daniel,

Gracias, intente con esto pero parece que no funciona con gmail, hotmail y con mi servidor de corrreo

Code: Select all

      :PrepareReport()
      :SetProperty("MailExport", "ShowDialog", .t.)  // con T o con F, pasa lo mismo
      :SetProperty("MailExport", "Address", "elcorreo@hotmail.com" )
      :SetProperty("MailExport", "ExportFilter", 1  )// or other
      :SetProperty("MailExport", "FilterDesc", "Envio de PDF" )
      :SetProperty("MailExport", "FromMail", "micuenta@gmail.com" )
      :SetProperty("MailExport", "FromCompany", "Empresa Fantasmas" )
      :SetProperty("MailExport", "FromName", "CFDI " )
      :SetProperty("MailExport", "Login", "milogin@gmail.com" ) //Login for smtp-server
      :SetProperty("MailExport", "Password", "mipassword" ) //Password for smtp-server
      :SetProperty("MailExport", "SmtpHost", "smtp.gmail.com" )
      :SetProperty("MailExport", "Subject", "Envio Archivos ......" )
      :DoExport("MailExport")
 

siempre me marca un error de expiración de tiempo

[lucasdebeltran]

Hola,

El smtp de gmail usa otro puerto, el 465.

http://mail.google.com/support/bin/answ ... swer=13287


Un saludo

[Mauricio]

Hola Lucas.

parece que fast report no soporta servidor con SSL

por eso el detalle del envio


saludos,
Mauricio