Thema: Delphi Mail an Edit1.Text

Einzelnen Beitrag anzeigen

Chewie

Registriert seit: 10. Jun 2002
Ort: Deidesheim
2.886 Beiträge
 
Turbo Delphi für Win32
 
#4
  Alt 1. Jun 2003, 11:55
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;
Martin Leim
Egal wie dumm man selbst ist, es gibt immer andere, die noch dümmer sind
  Mit Zitat antworten Zitat