EMail über Outlook senden (MAPI)

Modified on 22/06/2009 10:26 by Manuel Siebert Categorized as Plattform

((([image| |http://www.cp-austria.at/website/DesktopModules/Wiki/images/Home.gif|MainPage] » [MainPage|Startseite] » [netFramePlattform|netFrame als Plattform Menü] » [TippsundTricks|Tipps und Tricks] » Email über Outlook sende (MAPI) | {searchbox} [Search.aspx?FullText=1|Erweiterte Suche])))
{BR}
'''Beispiel:'''{BR}{BR}EMail über MAPI senden{BR}
{BR}
<code pascal>procedure netButton1_OnClick(Sender: Integer);
begin;
   mapiSample;
end;
 
procedure mapiSample;
   var
   aMapi: TMapiControl;
   CRLF: string;
begin;
   CRLF := chr(13)+chr(10);
 
   aMapi:= TMapiControl.Create;
   try
      aMapi.FromName := 'Müller Jürgen';
      aMapi.FromAdress := 'mueller@gmx.com';
      aMapi.Subject := 'MAPI Beispiel';
      aMapi.Body := 'Das ist mein Body' + CRLF + 'Zeile2' + CRLF;
      aMapi.Recipients.add('gustav.gans@aon.at');
      aMapi.CopyTo.add('meinchef@gmx.at');
      aMapi.BlindCopyTo.add('meineex@flirt.at');
      aMapi.AttachedFiles.add('C:\WINDOWS\Media\chimes.wav');
      aMapi.AttachedFiles.add('C:\WINDOWS\Media\chord.wav');
      aMapi.Sendmail;
   finally
      aMapi.free;
   end;
   
end;</code>
{BR}
'''Vorsicht:'''{BR}
{BR}
Es könnte sein, daß ein EMail Client installiert ist der keine MAPI unterstützt.{BR}

CP Wiki

Navigation¶

EMail über Outlook senden (MAPI)