Enviar Reporte Via Email FR3
Saludos,
estoy tratando de enviar un email usando FR3, pero esto lo quiero hacer desde un servicio windows, el problema es que no me esta llegando nada en el evento start del servicio windows tengo CoinitializeEx(nil,COINIT_MULTITHREADED); en el evento execute del servicio windows tengo TEnvioEstadoDeCuenta.Enabled := True; while not Terminated do ServiceThread.ProcessRequests(True);// wait for termination TEnvioEstadoDeCuenta.Enabled := False; y en el timer tengo frxMailExport1.Address:='dison08@codetel.net.do'; frxMailExport1.ExportFilter:=frxPDFExport1; // or other frxMailExport1.FilterDesc:='PDF per E-Mail versenden'; frxMailExport1.FromMail:='dison08@codetel.net.do'; frxMailExport1.FromCompany:='SS'; frxMailExport1.FromName:='el fuerte'; frxMailExport1.Subject:= 'mi subject'; frxMailExport1.SmtpHost:='smtp.codetel.net.do'; frxMailExport1.SmtpPort:=25; frxMailExport1.Login:='*******'; frxMailExport1.Password:='*****'; //frxReport1.EngineOptions.SilentMode := True; WriteToLogFile('enviado'); try frxReport1.PrepareReport; frxReport1.Export(frxMailExport1); except on E: Exception do WriteToLogFile(e.Message); end; no me estan llegando lo correo, no se que esta mal ya que no me da ningun error. |
La franja horaria es GMT +2. Ahora son las 22:56:58. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi