2017-06-13 17:24:31

Краткое описание :

Наполнение Body письма для FR отчетов при рассылке по EMail

Описание :

?

Что измененно :

Генератор отчетов Fast Report

----- СУТЬ ПРЕДЛОЖЕНИЯ -----
Для функции FSetParameters с параметром frMailParam реализовать передачу
длинных строк.

Как измененно :

Доработана функция FRSetParameters с параметром frMailParam.
Поля MailTo, Subject и Body структуры frxSendMailParam могут быть дескрипторами
файла.

Пример vip-кода:

type
TMyMailParam = record
Mail: LongInt;
Subject: String;
Body: LongInt;
ShowDialog: Boolean;
end;

var
MailParam: TMyMailParam;
var
File Tmp;
var
FReport: Longint;

Tmp.OpenFile(TranslatePath('%temp%\tmp.tmp')); // Файл.
// Tmp.OpenMemo(MemoLVar); // Или мемо-поле.
Tmp.WriteLn(' test@mail.com');
Tmp.WriteLine('; hello');
Tmp.WriteLine('@mail.com');

MailParam.MailTo := Tmp.Handle;
MailParam.Subject := 'hello';
MailParam.Body := Tmp.Handle;

FReport := FrCreate(DS);
FRSetParameters(FReport, frMailParam, MailParam);
FRSendReportMail(FReport, frExportXLSX);
FRDestroy(FReport);

Tmp.Close;