Как отправить отчёт по протоколу MAPI из Delphi

16.12.2013

Для того, чтобы отправить отчёт из Delphi программы, используя протокол MAPI, понадобится свежая версия генератора отчётов. Следующий код позволяет повесить на обработчик нажатия кнопки функцию отправки почты по протоколу MAPI

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button2Click(Sender: TObject);
var
mail: TfrxMailExport;
txt: TfrxTXTExport;
begin
txt := TfrxTXTExport.Create(nil);
mail := TfrxMailExport.Create(nil);
mail.UseMAPI := MAPI;
mail.Address:='Recepient Name <recepient@earth.xyz>';
mail.ExportFilter:=txt;
mail.FilterDesc:='TXT per E-Mail';
mail.FromMail:='Sender Name <sender@source.xyz>';
mail.Login := '';
mail.Password := '';
mail.Subject:='Subject-Text here';
mail.Lines.Add('Hi there, ' + #13#10#13#10+ 'heres comes an email with attached file');
frxReport1.Export(mail);
mail.Destroy;
end; 

 

При этом необходимо учесть следующие моменты:

  1. Адрес получателя сообщения должен быть в канонической форме - Name <user@host.net> - корректный адрес. В то же время адрес user@host.net будет отклонён некоторыми почтовыми клиентами. Например, Microsoft Outloook не сможет отправить сообщение, если он будет задан не в канонической форме.
  2. Полям Login и Password должны быть назначены пустые значения.

 

VCL MAPI FastReport Delphi VCL MAPI FastReport Delphi
22 января 2025

Как подключить РЕД БД к генератору отчетов FastReport .NET

Пошаговая инструкция по подключению РЕД БД к генератору отчётов FastReport .NET. Эффективные методы и рекомендации для создания отчётов на основе данных из базы.
20 ноября 2024

Локализация и смена языков в FastReport VCL

FastReport VCL поддерживает 40 языков для локализации интерфейса и позволяет изменять язык на лету через меню или код, без перекомпиляции.
1 ноября 2024

Новые возможности редактора отчетов FastReport VCL

Рассматриваем новые возможности редактора отчетов: выносные линии, подсветка пересекающихся объектов, обновлённые деревья отчетов и данных.