E-mail senden

[RavenIV]

Du kannst auch den Standard-Emailclient dazu verwenden, um eine neue email zu erstellen.

Ich hab hier ein TLabel (LaEmail), in dem der Empfänger steht.
Bei einem Click darauf wird der Standard-Emailclient (Outlook oder sowas) veranlasst, ein neues Email zu erstellen.
Dort sind dann schon Empfänger und Betreff ausgefüllt.

Delphi-Quellcode:

procedure TFoAboutBox.LaEmailClick(Sender: TObject);
begin
  ShellExecute(0, nil, PChar('mailto:' + (Sender as TLabel).Caption + '?subject=' + fVersInfo.sProductName + ' / ' + fVersInfo.sFileVersion + '&body=' + ''), nil, nil, SW_NORMAL);
end;