<html>
<head>
<style>
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Verdana
}
</style>
</head>
<body class='hmmessage'>
<br>Oi pessoal,<br><br> Preciso criar um script perl para enviar e-mails , usando a LWP criei o script abaixo, quando executo,<br>ele aparentemente roda normal e exibe a mensagem : " Message sent to <denilson.andrade@ufv.br>",<br><br>porem nao recebo o email. <br><br>Se alguem souber o que esta errado , ou souber de outro script pra envio de e-mails agradeco !<br><br><br>#! /usr/bin/perl<br>use warnings;<br>use strict;<br><br>use LWP::UserAgent; <br>my $user = LWP::UserAgent->new;<br><br>my $req = HTTP::Request->new( POST => 'mailto:denilson.andrade@ufv.br');<br> $req->header(Subject => "Testando");<br> $req->content(" Testando envio de email com lwp!\n");<br><br><br>my $res = $user->request($req);<br><br> if($res->is_success) {<br> print $res->content, "\n";<br> }<br> else {<br> print " Error: .$res->status_line";<br> }<br><br><br><br><br><br><br><br><br>Denilson S. de Andrade<br>Graduando em Ciência da Computação <br> UFV - Universidade Federal de Viçosa <br>
<a href="mailto:denilson.andrade@ufv.br">denilson.andrade@ufv.br</a><br><br><br><br><br /><hr />Notícias direto do New York Times, gols do Lance, videocassetadas e muitos outros vídeos no MSN Videos! <a href='http://video.msn.com/?mkt=pt-br' target='_new'>Confira já!</a></body>
</html>