E-Mail von Delphiprog senden

[BullsEye]

Also ich habe ein Delphi Programm, welches folgenden Code enthält.

Delphi-Quellcode:

uses ShellApi;
...
ShellExecute(Application.Handle, 'open',
PChar('mailto:[e-mail]?subject=Bugreport&body=Mein gefundener Fehler:'), nil, nil, sw_ShowNormal);

Soweit so gut, und im OnClick des Buttons wird dann auch Outlook geöffnet und mit den angegeben Daten gespeißt (Empfänger, Betreff, Text)
Jetzt will ich aber des anstatt des aktuellen Textes 'Mein gefundener Fehler' der Inhalt eines Memofeldes verschickt wird. UND das unten drunter der Inhalt eines Edits (Absender) angefügt wird.
Aber wie bekomm ich das hin?

[RavenIV]

Ich würde mir eine Variable BodyText vom Typ string anlegen.
Dann alle Zeilen des Memo in einer for-Schliefe durchgehen und jede Zeile an den String anhängen.
Am Schluss noch einen Zeilenumbruch (#10#13) und das Edit.Text anhängen.
Dann machst Du:
...&body=' + BodyText), nil, nil, sw_ShowNormal);

[OG Karotte]

Einfach mal so in's blaue geschossen:

Delphi-Quellcode:

PChar('mailto:[e-mail]?subject=Bugreport&body=' & memo1.text & edit1.text), nil, nil, sw_ShowNormal);

Nicht getestet

[dominikkv]

genauso...nur das du dir eben deinen text selbst zusammenbasteln musst.

Delphi-Quellcode:

var
  Adresse: String;
  Subject: String;
  MyText: String;

{...}

Adresse := '[e-mail]';
Subject := 'Bugreport';
MyText := Memo1.Text + #13#10#13#10 + Edit1.Text;

ShellExecute(Application.Handle, 'open', 
PChar('mailto:' + Adresse + '?subject=' + Subject + '&body=' + MyText), nil, nil, sw_ShowNormal);

edit:

Zitat:

Zitat von OG Karotte

Einfach mal so in's blaue geschossen:

Delphi-Quellcode:

PChar('mailto:[e-mail]?subject=Bugreport&body=' & memo1.text & edit1.text), nil, nil, sw_ShowNormal);

Nicht getestet

was machen da die &?

[BullsEye]

Zitat:

Zitat von dominikkv

genauso...nur das du dir eben deinen text selbst zusammenbasteln musst.

Delphi-Quellcode:

var
  Adresse: String;
  Subject: String;
  MyText: String;

{...}

Adresse := '[e-mail]';
Subject := 'Bugreport';
MyText := Memo1.Text + #13#10#13#10 + Edit1.Text;

ShellExecute(Application.Handle, 'open', 
PChar('mailto:' + Adresse + '?subject=' + Subject + '&body=' + MyText), nil, nil, sw_ShowNormal);

edit:

Zitat:

Zitat von OG Karotte

Einfach mal so in's blaue geschossen:

Delphi-Quellcode:

PChar('mailto:[e-mail]?subject=Bugreport&body=' & memo1.text & edit1.text), nil, nil, sw_ShowNormal);

Nicht getestet

was machen da die &?

So gehts. Allderings übernimmt der die Absätze nicht. Sondern packt alles dierecthintereinander.

[OG Karotte]

Zitat:

Zitat von dominikkv

was machen da die &?

Ups :oops: , es sollten natürlich '+' sein...

Da war ich wohl mit den Gedanken bei einer anderen Sprache :wall: