Hallo zusammen,
ich weis, das Thema wird in Foren oft behandelt und ich hab auch schon einiges gefunden, aber keines der genannten Löaungen funktioniert.. Ich möchte in Outlook oder auch Thunderbird eine Datei als Anhang mitliefern. Sowohl attach, attachment, file oder filename bringen keine Lösung. Alles andre: Adresse, BCC
CC und Bodytext funktionieren. Hier mal meine Ansätze:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
s:
String;
begin
// Sonstige Versuche...
//s := 'mailto:irgendwer@blubb.de?Subject=Thanks&Body=hallo&Filename=""C:\boot.ini""';
//ShellExecute(handle, 'open', PChar(s), nil, nil, SW_SHOWNORMAL);
//Shellexecute(Handle,'open','mailto:aaaa@bbb.com?subject&body=bodytext&CC=aaaa&bcc=dddd&attachmentfile=c:\temp\unit1.dcu',nil,nil,SW_SHOW)
s := '
mailto:someone@somewhere.com'
+ '
?subject=This is the subject Behold Error Report'
+ '
&body=This is line 1' + '
%0D%0A'
+ '
This is line 2' + '
%0D%0A'
+ '
This is line 3'
// bis hierher alles ok... aber dann :cry:
+ '
&filename='"c:\temp\unit1.dcu"'
;
ShellExecute(Handle, 'open'
, PChar(s), nil, nil, SW_SHOWNORMAL);
end;
Es wird einfach kein Anhang mit übergeben. Kann mir bitte bitte irgendjemand sagen, was ich da falsch mache? Brauch dringend diese Lösung... Vielen Dank gleich an alle Helfer!
Gruß beanbear