Delphi-PRAXiS - Delphi Anhang bei email anfügen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)

- - Delphi Anhang bei email anfügen (https://www.delphipraxis.net/2862-anhang-bei-email-anfuegen.html)

Anhang bei email anfügen

Hi,

ich habe hier ein kleines Problem. Und zwar habe ich in mein Programm eingebaut eine email per DblClick zu verschicken. An einer Stelle will ich dem Anwender nicht zumuten, sich damit groß zu befassen und sogar noch eine Datei im Verzeichnisbaum zu suchen. Diese eine Datei soll automatisch verschickt werden.

So stehts im OnDblClick :

Code:

ShellExecute(0, nil,PChar('mailto:'+DBEdit8.Text), nil, nil, SW_SHOW);

Ich glaube eines von den zwei Nil hat was damit zu tun, aber WinAPI ist wirklich nicht so meins. Bin gerade dabei das komplette PSDK runterzuladen. Das ist ja riesig. Trotz DSL glaube 1 oder 2 Stunden dauerts. Das Teil wird mir aber nur helfen, wenn für genau diese eine Frage ein Beispiel aufgeführt ist.

Gruß
Hansa

Hi Hansa,
das PSDK findest du auch online unter

http://msdn.microsoft.com. So nun zu deinem Problem: den zweiten Parameter solltest du auf 'open' ändern. Aber du wolltest ja Anhang nehmen, da der Anhang im Befehl drinsteckt läuft das so ungefähr:

Delphi-Quellcode:

			ShellExecute(handle, 'open', 'mailto:jemand@irgendwo.de?subject=Betreff&Body=Text&Attachment="C:\Pfad\zur\Datei.dat"', nil, nil, SW_SHOW);
		

So habe ich das in Erinnerung...

Chris