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

[Adriano Ferreira]

2009/3/31 Denilson Silva <denilsongv2 at hotmail.com>:
>
> 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 at 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 at ufv.br');
>    $req->header(Subject => "Testando");
>    $req->content(" Testando envio de email com lwp!\n");
>

Se você quer enviar e-mail, por quê está criando um HTTP::Request? Os
protocolos HTTP e SMTP são bem diferentes.

O usual para e-email é Net::SMTP (ou outros módulos que simplificam o
uso do protocolo e a criação de mensagens como Email::Send, etc.).

>
> 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 at ufv.br
>
>
>
>
> ________________________________
> Notícias direto do New York Times, gols do Lance, videocassetadas e muitos
> outros vídeos no MSN Videos! Confira já!
> _______________________________________________
> Rio-pm mailing list
> Rio-pm at pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>