Thema: Delphi E-mail senden

Einzelnen Beitrag anzeigen

Benutzerbild von RavenIV
RavenIV

Registriert seit: 12. Jan 2005
Ort: Waldshut-Tiengen
2.875 Beiträge
 
Delphi 2007 Enterprise
 
#10

Re: E-mail senden

  Alt 20. Feb 2008, 15:45
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;
Klaus E.
Linux - das längste Text-Adventure aller Zeiten...
Wer nie Linux mit dem vi konfiguriert hat, der hat am Leben vorbei geklickt.
  Mit Zitat antworten Zitat