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:

Delphi-Quellcode:

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

  //Shellexecute(Handle,'open','mailto:[e-mail]?subject&body=bodytext&CC=aaaa&bcc=dddd&attachmentfile=c:\temp\unit1.dcu',nil,nil,SW_SHOW)

   s := 'mailto:[e-mail]'
    + '?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

[Bernhard Geyer]

Über mailto kann man keine Anhänge verschicken.

Schau dir mal http://wiki.delphi-jedi.org/wiki/JCL...SimpleSendMail an.
Das funktioniert auf jedenfall für Outlook.
Ansonsten direkt per SMTP verschicken.

[Jick]

Für Thunderbird hatte ich das mal über CreateProcess gemacht und dann alle Parameter hinten angehängt.

Code:

procedure ExecNewProcess(ProgramName: string; Wait: Boolean);
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CreateOK: Boolean;
begin
  { fill with known state }
  FillChar(StartInfo, SizeOf(TStartupInfo), #0);
  FillChar(ProcInfo, SizeOf(TProcessInformation), #0);
  StartInfo.cb := SizeOf(TStartupInfo);
  CreateOK := CreateProcess(nil, PChar(ProgramName), nil, nil, False,
    CREATE_NEW_PROCESS_GROUP + NORMAL_PRIORITY_CLASS,
    nil, nil, StartInfo, ProcInfo);
  { check to see if successful }
  if CreateOK then
  begin
    //may or may not be needed. Usually wait for child processes
    if Wait then
      WaitForSingleObject(ProcInfo.hProcess, INFINITE);
  end
  else
  begin
    ShowMessage('Unable to run ' + ProgramName);
  end;

  CloseHandle(ProcInfo.hProcess);
  CloseHandle(ProcInfo.hThread);
end;

[himitsu]

Das mailto-Protokoll und die MAPI haben hier ein kleines Problemchen.
Gerade dieser Teile mit den Dateianhängen war/ist nicht standardisiert und jedes Mailprogramm und fast jede Programm-Version arbeiten da gern mal anders.
(unterstützen es nicht oder nicht einheitlich und jeder macht seinen eigenen Mist)

Die einzigen sicheren Wege sind für jedes Mailprogramm dessen Variante zu implementieren und meistens geht das über die jeweiligen OLE-Schnittstellen am Problemlosesten.
Man muß da nur wieder aufpassen, da z.B. MS Outlook je nach OS und Programmversion nicht kompatibel ist.
32 Bit-Programm auf das 32 Bit OLE des 64 Bit MS Outlook will hier nicht so richtig und der vergisst irgendwo den Anhang.

Wir haben es so gelöst:
Thunderbird über MAPI und dann noch 2 Konsolenprogramme in .NET geschrieben für je 32 und 64 Bit zum MS Outlook.