Textdatei und Email-Client

[Matze]

Hi!

So könnte es gehen, aber getestet habe ich es nicht!! :wink:

Code:

var
  Form1: TForm1;
  Empfaenger, Betreff, Text, Attachment: String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Execute;
  Empfaenger:=Edit1.Text;
  Betreff:=Edit2.Text;
  Text:=Memo1.Text;
  Attachment:=OpenDialog1.FileName;
  ShellExecute(Handle, 'open', PChar('mailto:'+Empfaenger+'?subject='+Betreff+'&Body='+Text+'&Attachment="'+Attachment+'"'), nil, nil, SW_SHOW);
end;

[Edit]Attachment geht doch nicht, SORRY![/Edit]

Gruß Matze

[Matze]

Kann es sein, dass man mit dem mailto-Aufruf kein Attachment ranhängen kann?? Das scheint mir nämlich so. :twisted:

[Daniel B]

Ich habe im Netz wegen dem Thema mal gegoogelt und festgestellt, das es "angeblich" mit &file, &attach, &attachment gehen sollte, habe genug Beispiele gefunden, in Delphi und in VB. Aber, es will einfach nicht.
Manche haben den Pfad der File in 'dsfds' geschrieben, manche in "dfvfdfds" und manche ohne nichts, also &attach=c:\dsfd\dsfds.exe, aber egal was man macht, es will einfach nicht.

[Privateer3000]

ich habe auch nicht hinbekommen.
Vielleicht bringt eine Mail an Borland etwas?!

[Daniel B]

Kannst Du gerne machen. Nur, ich denke das liegt eher an der Parameterübergabe und OE, wohl nicht an dem Code denn der wird bestimmt so ausgeführt wie man den schreibt.

Was es noch gibt, ich glaub das war aber vom Outlook, nit OE, den Parameter /a um eine Datei anzuhängen, such mal nach der Parameterübersicht vom Outlook, hab vor ewigkeiten das mal gesehen, finde es aber auf die schnelle nicht, vielleicht kann man sich den Kram mit dem OLE sparen.

[Privateer3000]

Gehen muss es ja irgendwie.Denn im Windoof-Kontext gibt es eine solche Funktion.
Naja, ich geb mich erstmal damit zufrieden.Vielleicht findet es irgendjemand raus?!