Attachment im Mail D7

**beanbear6**

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:

zusammenfalten · markieren

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

Attachment im Mail D7

Attachment im Mail D7

Forumregeln