The built-in email feature provides numerous ways to export and send a report via email in a single step. Below is a description of how this can be done.
Send an email from the Preview Window:
- Set the TppReport.EmailSettings.Enabled property to True.
- Set up the rest of the email settings inlcuding whether you would like to use the built-in email dialog (ShowEmailDialog) or preview the email in your default client (PreviewInEmailClient).
- Click the “email” button on the top toolbar of the Preview window to export and send the report being previewed.
Send an email in code from the Report:
- Set the TppReport.EmailSettings properties to your specifications.
- Call the Report.SendMail routine to automatically export the report and send the email.
Export and Send multiple reports at once:
- Create a TppEmail object
- Use the TppEmail.AddReport() routine to add as many reports to the emails as you need. Note that the first report added will provide the email settings for all reports exported and sent.
- Call the TppEmail.Send routine to export and send all the reports added in one email.
Download: EmailExample.zip
Sample Delphi code:
Send an email from the preview window:
|
1 2 3 4 5 6 7 8 9 10 11 12 |
procedure TEmailFrm.btnPreviewClick(Sender: TObject); begin //Register MAPI plugin... TppSMTPPlugIn.RegisterClass(TppSMTPMapi); ppReport1.EmailSettings.ShowEmailDialog := False; ppReport1.EmailSettings.PreviewInEmailClient := True; ppReport1.EmailSettings.Enabled := True; ppReport1.Print; end; |
Send an email from the report:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
procedure TEmailFrm.btnMAPIClick(Sender: TObject); begin //Register MAPI plugin... TppSMTPPlugIn.RegisterClass(TppSMTPMapi); ppReport1.EmailSettings.ShowEmailDialog := False; ppReport1.EmailSettings.PreviewInEmailClient := True; ppReport1.EmailSettings.Body.Text := cMapiMail; ppReport1.SendMail; end; |
Send multiple emails using the TppEmail object:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
procedure TEmailFrm.btnSendEmail(Sender: TObject); var lEmail: TppEmail; begin //Register MAPI plugin... TppSMTPPlugIn.RegisterClass(TppSMTPMapi); lEmail := TppEmail.Create; try ppReport1.EmailSettings.ShowEmailDialog := False; ppReport1.EmailSettings.PreviewInEmailClient := True; ppReport1.EmailSettings.Body.Text := cMapiMail; //Add reports lEmail.AddReport(ppReport1); lEmail.AddReport(ppReport2); lEmail.AddReport(ppReport3); lEmail.Send; finally lEmail.Free; end; end; |