Český portál Delphi

Zasílání mailů 1 - MAPI

Někdy je třeba z aplikace umožnit zaslání mailu uživatelem. Nejjednodušší (ale ne vždy použitelný, protože ne každý má instalovaného klienta) způsob je přes MAPI (Mail API).

Jedná se o dlouho používané rozhraní pro práci s nainstalovaným poštovním klientem a je podporované prakticky všemi klienty (Outlook, Outlook Express, Thunderbird, Opera, SeaMonkey atd). V současnosti se někdy nazývá spíše Simple MAPI, jelikož MS ve své neskonalé moudrosti spolu s Outlookem přivedl další rozhraní MAPI, které je ale pouze pro spolupráci s ním (i když i Outlook podporuje Simple MAPI).

Pro rozlišení je toto nové MAPI nazýváno Extended MAPI a kromě opravdu velkých možností se vyznačuje tím, že nesmí být používáno z .NET (MAPI v .NET, KB 813349).

Více o Simple MAPI a spol. - KB 200018.

Ale zpět Simple MAPI a Delphi. Nejjednodušeji přes JCL a jednotku JclMapi. Jak by řekl Pohlreich - je to jednoduché jak žebřík.

var
  oJclEmail: TJclEmail;
begin
  oJclEmail := TJclEmail.Create;
  oJclEmail.Recipients.Add('radekc@nekde.cz', 'Radek Někde'); //To
  oJclEmail.Recipients.Add('pavel@neco.cz', 'Pavel', rkCC); //CC
  oJclEmail.Subject := 'Testovací mail'; // předmět
  oJclEmail.Attachments.Add('c:\test.pdf'); // nějaká příloha
  // text zpravy
  oJclEmail.Body := 'Tělo mailu. '+#13#10+'S pozdravem mailer'; 
  oJclEmail.Send(True); // zobraz dialog před posláním
  oJclEmail.Free; 
end;

Příště zkusíme něco složitějšího.

Datum: 2010-12-07 21:57:00 Tagy: utrzky, začátečníci

Praxe