Home Devices

Email attachements order

Hi!

Is possible to control the order of attachments when sending the mail via Indy? My customers complain that the order of attachements should be like this:

1. Report (PDF)
2. Attachement1
3. Attachement2
... etc.

but now I send like this

1. Attachement1
2. Attachement2
... etc.
N. Report (PDF)

It seems that the report PDF is attached in the SendMail procedure, but from there I have no control over attachements.

Hoper there is a way, because otherwise I'm in trouble...

Kind regards,
m@rko

My code:

rptReport.EmailSettings.Clear;

rptReport.EmailSettings.HostAddress := GetVar('SMTP_SERVER');
rptReport.EmailSettings.Port := StrToIntDef(GetVar('SMTP_PORT'), 0);
rptReport.EmailSettings.UserName := GetVar('SMTP_USER');
rptReport.EmailSettings.Password := GetVar('SMTP_PASS');
TppSMTPIndy(TppEmail(rptReport.Email).SMTP).IndySMTP.Host := rptReport.EmailSettings.HostAddress;
TppSMTPIndy(TppEmail(rptReport.Email).SMTP).IndySMTP.Port := rptReport.EmailSettings.Port;
TppSMTPIndy(TppEmail(rptReport.Email).SMTP).IndySMTP.UserName := rptReport.EmailSettings.UserName;
TppSMTPIndy(TppEmail(rptReport.Email).SMTP).IndySMTP.Password := rptReport.EmailSettings.Password;
rptReport.EmailSettings.ShowEmailDialog := false;
rptReport.EmailSettings.PreviewInEmailClient := false;
rptReport.EmailSettings.FromAddress := GetVar('MAIL_SENDER_ADDRESS');
rptReport.EmailSettings.FromName := GetVar('MAIL_SENDER_NAME');

rptReport.EmailSettings.Recipients.Add(CurrEmail);
rptReport.EmailSettings.Subject := Parse(ReplaceAllVars(edtMailSubject.Text));
rptReport.EmailSettings.Body.Text := Parse(ReplaceAllVars(memoMailBody.Text));

for J := 0 to listExtraFiles.Items.Count - 1 do begin
if FileExists(listExtraFiles.Items[J]) then begin
rptReport.EmailSettings.Attachments.Add(listExtraFiles.Items[J]);
end;
end;

rptReport.SendMail;

Comments

  • There is a patch available for RB 19.04 that ensures the report is the first attachment. Currently registered users can email support@ to receive this patch.

    Best Regards,

    Nico Cizik
    Digital Metaphors
    http://www.digital-metaphors.com
Sign In or Register to comment.