How to send report from Delphi program via MAPI protocol

Just copy following code for sending the report from your own application:

 

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;

 

 There are two important issues for this example:

  1.  The recepient address must be written in canonical form Name <user@host.net>. Simple forms  - user@host.net will be rejected by some mail clients. For example, Microsoft Outlook require a  canonical form of the recepient address.
  2.  You must set fields Login and Password  with empty values.


Aleksey Mandrykin
VCL MAPI
Add comment