Mailto mit Anhang senden

[uhaetten]

Hallo zusammen

Ich möchte, dass mein Programm auf Knopfdruck das Standard-E-Mail-Programm des Users öffnet und da eine neue E-Mail erstellt. Diese soll jedoch noch nicht versendet werden, sondern erst geöffnet werden, damit der User noch die Chance hat den Text anzupassen.

Dies erreiche ich auch wunderbar mit folgendem Code

ShellExecute(Application.Handle, 'open', PChar('mailto:' + edbEmail.Text), nil, nil, SW_SHOW); Allerdings möchte ich nun noch eine Datei anhängen. Im Stil von "Rechtsklick auf eine Datei -> Datei senden an -> Emailempfänger" in Windows.

Könnt ihr mir da weiterhelfen?

Vielen Dank
Urs