EMail mit Anhang verschicken

[Budda]

Hallo,

habe heute versucht über die ShellAPI das Standard Mail Programm zu öffnen mit vorgaben wie Empfänger, Betreff etc.

Das funzt auch alles so, bis auf das Anhängen einer Datei. Sieht nun wie folgt aus:

Delphi-Quellcode:

  ShellExecute(Handle,'open','mailto:[e-mail]?Subject=Test &Body=Siehe Anhang &Attach=D:\Text.txt', nil,nil,SW_SHOWNORMAL);

Sieht da vielleicht jemand nen Fehler?

Gruss
Budda

[Mario]

Woher hast Du den Parameter Attach bei MailTo. Der wird normalerweise nicht unterstützt und als ich das letzte Mal in SelfHTML danach gesucht hatte, wurde dieser Paramter nicht unterstützt:

Hintergrund: MailTo ist ja eigentlich für Webseiten gedacht, woher sollten die wissen, wie die Files auf Deiner Platte lauten und wo die liegen (Windows/Linux).

Du musst Mapi verwenden. In der JCL sind da einige einfach zu verwendende Funktionen drin.

[bart57]

Hallo

"Attach" muss du durch "file" ersetzen !!!

[Budda]

Das klappt leider nicht.

[s14]

probier's mal so:

Delphi-Quellcode:

procedure TForm1.Button9Click(Sender: TObject);
var
  s: String;
begin  
s := 'mailto:[e-mail]?Subject=Thanks&Body=hallo&Attach=""C:\boot.ini""';
ShellExecute(handle, 'open', PChar(s), nil, nil, SW_SHOWNORMAL);
end;

[Budda]

Danke dir, so klappt es ;)