Email via idhttp/post ajuda

Delphi

16/12/2008

Salve,

Estou tentando enviar um email pelo idhttp por meio post...
Mais não estou conseguindo realizar está façanha
Alguém por acaso pode conferir o que está errado...

procedure TForm1.Button1Click(Sender: TObject);
var
  Lista : TStringList;
  begin
  Lista := TStringList.Create;
  Lista.Clear;
  Lista.Add(´destinatario=´ + (´email@destino.com´));
  Lista.Add(´titulo=´ + ´Teste´);
  Lista.Add(´texto=´ + ´Sucesso´);
  try
  idhttp1.Post(´http://linkdophp.com´, Lista);
  finally
  Lista.Free;
  end;
  end;



Seguindo um exemplo eu deixei no arquivo
php que faz a requisição assim:
<?
$destinatario =$_POST["email@destino.com"];
$assunto =$_POST["titulo"];
$remetente ="email@remetente.com";
$cabecalho ="From:cliente instalado!!\nReply-To: $remetente";
$corpo =$_POST["texto"];
mail($destinatario, $assunto, $corpo, $cabecalho);
?>


Mais não chega email nenhum
O que está errado?

Até mais


Psycho

Psycho

Curtidas 0
POSTAR