export mail

Salve sto provando a esportare un report in pdf via email con questo codice:

 RepName:= ExtractFilePath(Application.ExeName)+'rpt\'+'ASTVTH.fr3';

 DM.fxREP.LoadFromFile(RepName);

 DM.fxREP.ReportOptions.Name:=' INTERVENTO ';

 DM.frxPDFExport1.FileName :='InterventoTecnico.pdf';

 DM.frxMailExport1.Address   :='mioindirizzo.it';

 DM.frxMailExport1.FilterDesc  :='PDF per E-Mail versenden';

 DM.frxMailExport1.FromMail   :='suoindirizzo.it;

 DM.frxMailExport1.FromCompany :='azienda;

 DM.frxMailExport1.FromName   :=' Daniele';

 DM.frxMailExport1.Login    :='mioaccountmail;

 DM.frxMailExport1.Password   :='miapsw';

 DM.frxMailExport1.SmtpHost   :='smtp.tiscali.it';

 DM.frxMailExport1.Subject   :='invio da app';

 DM.frxMailExport1.Lines.Add('dovrebbe esserci allegato');

 DM.fxREP.Export(DM.frxMailExport1);

vedo che parte l'esportazione ma dopo qualche secondo mi restituisce access violation,

consigli ?

Leave a Comment