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

[Lucas Mateus]

Pode ser que o SMTP não esteja aceitando relay desse computador/servidor.

On Tue, 31 Mar 2009 10:34:52 -0300, Denilson Silva  
<denilsongv2 em hotmail.com> wrote:

>
>
> 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



-- 
Lucas Mateus
Núcleo de Páginas Rápidas e SEO
Fone: 55 11 3065-9978
MSN: lucasmateus_777 em hotmail.com