Thema: Delphi E-Mail verschicken

Einzelnen Beitrag anzeigen

Larsi

Registriert seit: 10. Feb 2007
2.262 Beiträge
 
Delphi 2007 Professional
 
#8

Re: E-Mail verschicken

  Alt 6. Sep 2009, 18:13
Hier meine Lösung. Du brauchst dafür die Indys!

Im Anhang ist eine Php Datei, die du mit Nodepad öffnen musst und statt email@web.de halt deine Email Adresse reinschreiben musst. Dann musst du sie auf deinen FTP Server tun.

Dann schreibst du bspw. in ein Button Event das rein:

Delphi-Quellcode:
var
  FormData: TIdMultiPartFormDataStream;
  HTTP: TIdHTTP;
begin
 FormData := TIdMultiPartFormDataStream.Create;
  HTTP := TIdHTTP.Create;
  try
    FormData.AddFormField('data1', Edit1.Text);
    FormData.AddFormField('data2', Edti2.Text);
    HTTP.post('http://meineseite.de/Skript.php',FormData)
  finally
    HTTP.Free;
    FormData.Free;
    MessageDlg('Fertig!', mtinformation, [mbok], 0);
end;
end;
In Edit1 muss der Betreff drin stehen und in Edit2 die Nachricht. Hilft dir das?
Angehängte Dateien
Dateityp: exe skript_198.exe (105 Bytes, 12x aufgerufen)
Ein Tag ohne Delphi ist ein verlorener Tag!

Homepage zu meinem neuen Programm: StreamZ
  Mit Zitat antworten Zitat