Postby bingen » Thu Dec 13, 2018 12:57 pm
Así es en FR solo has de desviar el email a tu propio código, en mi caso....
If FuncExists("FastReportSendMail")
::OnBtnSendMail:={|oSender| FastReportSendMail(oSender, ::aMailPara, ::cMailAsunto, ::cMailMensaje) }
Else
::OnBtnSendMail:={|| MsgInfo("Opción de envio de email no definida para este programa.") }
Endif
Y esta es la funcion a la que llamo que como ves recibe como primer parámetro el objeto FR
//Nuestro sistema de envio de email integrado en FastReport
FUNCTION FastReportSendMail( oFr, aPara, cAsunto, cMensaje )
LOCAL cTmpFile := Appdata:cDataTmp + CleanName( oFr:cReportName ,,,.T.) + ".Pdf"
Default aPara To {}
Default cAsunto To oFr:cReportName
Default cMensaje To ""
oFr:SetProperty( "PDFExport", "FileName", cTmpFile )
oFr:SetProperty( "PDFExport", "ShowDialog", .F. )
oFr:DoExport( "PDFExport" )
WITH OBJECT TFormEmail()
:aPara := aPara
:lPara := .T.
:cAsunto := cAsunto
:cMensaje := cMensaje
:aAdjuntos := { cTmpFile }
:cPlantilla := Appdata:cPlantillaEmail
:lAdjuntos := .F.
:lAcuse := .F.
:New()
:ShowModal()
END WITH
RETURN .T.
Como idea hay te queda.