Email über php Script versenden

[Matze]

Hi!

Wie kann ich eine E-Mail per php-Script versenden?
Am besten wär's, mit den Indys.

Ich finde hier immer nur die Lösung, wo man Username und Passwort angeben muss, das möchte ich einfach nicht in der exe hinterlassen.

[Synonym]

So:

PHP Script!

Code:

mail("[e-mail]","Synonym","
[B]Hallo,[/B]


Dies ist eine eMail, die mit PHP geschickt wurde.",
"From: Beispiel-Name <[e-mail]>
Bcc: [email][e-mail][/email]
Content-Type: text/html");

und dann hiermit senden!

Delphi-Quellcode:

uses IdMultipartFormData;

{ .... }

procedure TForm1.Button1Click(Sender: TObject);
var
  data: TIdMultiPartFormDataStream;
begin
  data := TIdMultiPartFormDataStream.Create;
  try
    { add the used parameters for the script }
    data.AddFormField('param1', 'value1');
    data.AddFormField('param2', 'value2');
    data.AddFormField('param3', 'value3');

    { Call the Post method of TIdHTTP and read the result into TMemo }
    Memo1.Lines.Text := IdHTTP1.Post('http://localhost/script.php', data);
  finally
    data.Free;
  end;
end;

gruß

synonym

[Matze]

Boah, ging das aber schnell!

Danke! Werde es gleich mal testen...

[Matze]

Was muss ich denn hier eigeben?

Delphi-Quellcode:

data.AddFormField('param1', 'value1'); 
data.AddFormField('param2', 'value2'); 
data.AddFormField('param3', 'value3');

Jetzt kommt nämlich:

Zitat:

---------------------------
Projekt1
---------------------------
Socket-Fehler # 10061

Verbindung abgelehnt.
---------------------------
OK
---------------------------

Nachtrag:
Mein Script sieht jetzt so aus:

Zitat:

mail("MeineEmailAdresse","Synonym","
Hallo,

Dies ist eine eMail, die mit PHP geschickt wurde.",
"From: Beispiel-Name <[e-mail]>
Content-Type: text/html");

[Synonym]

So:

PHP Script!

Code:

<?php
mail("$zu","$betreff","
$text",
"From: $von
Content-Type: text/html");
?>

und dann hiermit senden!

Delphi-Quellcode:

uses IdMultipartFormData;

{ .... }

procedure TForm1.Button1Click(Sender: TObject);
var
  data: TIdMultiPartFormDataStream;
begin
  data := TIdMultiPartFormDataStream.Create;
  try
    { add the used parameters for the script }
    data.AddFormField('zu', '[e-mail]');
    data.AddFormField('betreff', 'jo funktioniert');
    data.AddFormField('text', 'Hallo, test erfolgreich');
data.AddFormField('von', '[e-mail]');

    { Call the Post method of TIdHTTP and read the result into TMemo }
    Memo1.Lines.Text := IdHTTP1.Post('http://localhost/script.php', data);
  finally
    data.Free;
  end;
end;

gruß

synonym

P.S. Du darfst das

Code:

<?php ?>

nicht vergessen!

[Matze]

Man merkt, dass ich keine Ahnung von php hab.

Ein fehler kommt immer hier:

Memo1.Lines.Text := IdHTTP1.Post('http://localhost/script.php',

[Synonym]

wie genau machst du das denn? über nen externen server?

synonym

[Matze]

Ja, bei IdHTTP hab ich beim Host: mailto.t-online.de eingestellt.

[Synonym]

häh? wo hast du denn die php datei liegen? bei idhttp musst du nichts eingeben...

das php script sendet automatisch über sendmail!

synonym

[Matze]

Also die php Datei hab ich im Projektordner, muss ich die auf nen Server laden?

Sorry, ich frag schon blöd.