Documentation on TfrxMailExport

Comments

• Ralf

  August 2006 edited 12:22AM

  For Example (Mail with PDF-Attachment):
  

  procedure TForm1.Mailexport(Sender: TObject);
  var strm:tmemorystream;
  begin
       strm:=tmemorystream.Create;
       tblRechnungenRGDaten.SaveToStream(strm); // loading report from table (blob-field) into stream
       strm.Position:=0;
       frxreport1.PreviewPages.LoadFromStream(strm); // loading report from stream into frxreport 
       frxreport1.ReportOptions.Name:=' any text';
       frxreport1.FileName:='Filename';
       strm.Free;
       frxMailExport1.Address:='abcdefg@earth.xyz';
       frxMailExport1.ExportFilter:=frxPDFExport1; // or other
       frxMailExport1.FilterDesc:='PDF per E-Mail versenden';
       frxMailExport1.FromMail:='your-email@your-domain.com';
       frxMailExport1.FromCompany:='Your company';
       frxMailExport1.FromName:='Your Name';
       frxMailExport1.Login:='125537733'; //Login for smtp-server
       frxMailExport1.Password:='*******'; //Password for smtp-server
       frxMailExport1.SmtpHost:='smtp.earth.xyz';
       frxMailexport1.Subject:='Subject-Text here';
       frxMailexport1.Lines.Add('Hi there, '+#13#10#13#10+'heres comes an email with attached PDF);
       frxpdfexport1.Author:='Name of Author';
       frxpdfexport1.Subject:='Any text for PDF-Subject';
       frxpdfexport1.Creator:=application.Title;
       frxreport1.Export(frxMailExport1);
  end;
  

  
  
  I hope it's free from errors an may it will help you ...
  
  Regards
  Ralf