eMail über Standard-Mail-Programm verschicken

[TeronG]

Zitat von mquadrat:

Er möchte über MAPI und das Standard-Programm schicken, nicht direkt per SMTP...

In der Code-Lib gibt es ein Beispiel zu MAPI

EDIT/ADD:
Das Ding lag bei mir noch so rum (müsste eigentlich funtzen ^^)

Delphi-Quellcode:

function TG_MailVersenden(eMail,Betreff,Mailtext:String;anhang:string='') : Integer;
var
  s: String;
begin
  s := 'mailto:'+eMail+'?Subject='+Betreff+'&Body='+Mailtext;
  if Anhang <> '' then s:=s+'&Attach=""'+Anhang+'""';

  result := ShellExecute(Application.Handle, 'open', PChar(s), nil, nil, SW_SHOWNORMAL);
end;