[Rio-pm] envio de e-mail com LWP

[Denilson Silva]

Oi  pessoal,

 Preciso criar um script perl para enviar e-mails , usando a LWP  criei o script abaixo, quando executo,
ele aparentemente roda normal e exibe a mensagem  : " Message sent to <denilson.andrade em ufv.br>",

porem nao recebo o email. 

Se alguem souber o que esta errado , ou souber de outro script pra envio de e-mails agradeco !


#! /usr/bin/perl
use warnings;
use strict;

use LWP::UserAgent; 
my $user = LWP::UserAgent->new;

my $req = HTTP::Request->new( POST => 'mailto:denilson.andrade em ufv.br');
   $req->header(Subject => "Testando");
   $req->content(" Testando envio de email com lwp!\n");


my $res = $user->request($req);

  if($res->is_success) {
     print $res->content, "\n";
     }
     else {
     print " Error: .$res->status_line";
     }








Denilson S. de Andrade
Graduando em Ciência da Computação 
 UFV - Universidade Federal de Viçosa 

denilson.andrade em ufv.br




_________________________________________________________________
Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video!
http://video.msn.com/?mkt=pt-br
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20090331/1353b7a3/attachment.html>