topic-22883

Posts: 199

Joined: Thu Oct 06, 2005 09:07 PM

Enviar e-mail & Fast Reports
Posted: Tue Nov 15, 2011 02:02 AM

Hola,

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

algo asi:

Code (fw): Select all Collapse

 
      :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

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: Enviar e-mail & Fast Reports
Posted: Tue Nov 15, 2011 04:09 AM

Hola

intenta esto

Code (fw): Select all Collapse

   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" )

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

Mauricio

Posts: 199

Joined: Thu Oct 06, 2005 09:07 PM

Re: Enviar e-mail & Fast Reports
Posted: Tue Nov 15, 2011 06:54 PM

Daniel,

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

Code (fw): Select all Collapse

      :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

Posts: 1303

Joined: Tue Jul 21, 2009 08:12 AM

Re: Enviar e-mail & Fast Reports
Posted: Tue Nov 15, 2011 08:23 PM

Hola,

El smtp de gmail usa otro puerto, el 465.

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

Un saludo

Muchas gracias. Many thanks.

Un saludo, Best regards,

Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]

Implementando MSVC 2010, FWH64 y ADO.

Abandonando uso xHarbour y SQLRDD.

Mauricio

Posts: 199

Joined: Thu Oct 06, 2005 09:07 PM

Re: Enviar e-mail & Fast Reports
Posted: Tue Nov 15, 2011 11:51 PM

Hola Lucas.

parece que fast report no soporta servidor con SSL

por eso el detalle del envio

saludos,
Mauricio

FiveTech Support Forums

Continue the discussion