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.

So:

PHP Script!

markieren

Code:

mail("webmaster@domain.de","Synonym","
[B]Hallo,[/B]


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

und dann hiermit senden!

zusammenfalten · markieren

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

Boah, ging das aber schnell!

Danke! Werde es gleich mal testen...

Was muss ich denn hier eigeben?

markieren

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 <test@test.de>
Content-Type: text/html");

So:

PHP Script!

markieren

Code:

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

und dann hiermit senden!

zusammenfalten · markieren

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', 'test@domain.de');
    data.AddFormField('betreff', 'jo funktioniert');
    data.AddFormField('text', 'Hallo, test erfolgreich');
data.AddFormField('von', 'matze@matze.de');

    { 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

markieren

Code:

<?php ?>

nicht vergessen!

Man merkt, dass ich keine Ahnung von php hab.

Ein fehler kommt immer hier:

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

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

synonym

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

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

das php script sendet automatisch über sendmail!

synonym

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

Sorry, ich frag schon blöd.