Beispiel:EMail über MAPI senden
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;
Vorsicht:
Es könnte sein, daß ein EMail Client installiert ist der keine MAPI unterstützt.