Delphi Mail mit Standard Mailhandler verschicken mit Anhang

Thema durchsuchen

Ansicht

Themen-Optionen

Mail mit Standard Mailhandler verschicken mit Anhang

Ein Thema von Klaus D. · begonnen am 28. Okt 2005 · letzter Beitrag vom 29. Okt 2005

Vorheriger Beitrag

Nächster Beitrag

Klaus D.

Registriert seit: 27. Okt 2003
Ort: 03238 Finsterwalde
124 Beiträge

Delphi 6 Professional

Mail mit Standard Mailhandler verschicken mit Anhang

28. Okt 2005, 21:35

Hallo

markieren

Delphi-Quellcode:

			procedure Tfrm_Mail.Button1Click(Sender: TObject);

 var   Adresse, Betreff, Text: String;

begin

 Adresse:=Edit1.Text;

 Betreff:=Edit2.Text;

 Text:='';

 ShellExecute(Handle, 'open',

 PChar('mailto:'+adresse+'?subject='+Betreff+'&body='+Text),nil,nil,SW_SHOW);

end;