Mail an Edit1.Text

[citybreaker]

Hallo!
Ich möchte mit einer ShellApi funtion eine
Mail verschicken. Alerdings soll man in
einem Editfeld die E-Mail Adresse angeben
können. Hab mal folgendes probiert, klappt
aber nicht. Wo ist bitte der Fehler?

Code:

procedure TForm1.sendenClick(Sender: TObject);
begin
  // E-Mail an ...
  ShellExecute (Handle, 'open', 'Mailto:' + Edit1.Text + '?' + 'subjekt=test', '', Nil, Sw_show);
end;

[r_kerber]

Unterschiedliche String-Typen. Bau Dir das MailTo vorher zusammen.

[citybreaker]

http://www.delphipraxis.net/images/s...e_wiejetzt.gif

Wie meinste das?

[Chewie]

Schreib mal:

Delphi-Quellcode:

procedure TForm1.sendenClick(Sender: TObject); 
begin 
  // E-Mail an ... 
  ShellExecute (Handle, 'open', PChar('Mailto:' + Edit1.Text + '?' + 'subjekt=test'), '', Nil, Sw_show); 
end;

[r_kerber]

ShellExecute erwartet C-Strings (nullterminiert) Delphi arbeitet mit dem Pascal-Stringformat. Für ShellExecute benötigst Du ein array of Char. Die gewünschte Zeichenkette mit Strings zusammenbauen und anschließende mit StrPCopy umwandeln.