Enviar Reporte Via Email FR3

[dison]

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.