<br>Olha o que eu achei no meu S.O<br><br>p libnet-smtp-server-perl - A native Perl SMTP Server implementation for Perl <br>
<br>Isso será o suficiente ?<br><br><br><div class="gmail_quote">2008/11/10 Daniel de Oliveira Mantovani <span dir="ltr"><<a href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Acho que compreendi.<br><br>Precisa ser algo assim:<br><i> $msg->send('smtp','localhost', Debug=>1);</i><br>
<br>Obrigado<br>[]'s<br><div class="gmail_quote">2008/11/10 Thiago Rondon <span dir="ltr"><<a href="mailto:thiago@aware.com.br" target="_blank">thiago@aware.com.br</a>></span><div><div></div><div class="Wj3C7c">
<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><br>
<br>
Daniel,<br>
<br>
Não utilizo este modulo para enviar e-mails.<br>
<br>
Porém, você não esta definindo por qual servidor irá enviar a mensagem pelo código que<br>
você passou.<br>
<br>
Quando eu cliquei no link do CPAN do modulo que você mesmo enviou, eu li a SYNOPSIS,<br>
e ele exemplifica passando o servidor de envio como parametro do metodo send().<br>
<br>
Ative o DEBUG para entender, como tem no exemplo também, para entender o que esta<br>
acontecendo melhor.<br>
<br>
-Thiago Rondon<br>
<br>
Daniel de Oliveira Mantovani escreveu:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<a href="http://search.cpan.org/%7Erjbs/MIME-Lite-3.022/lib/MIME/Lite.pm" target="_blank">http://search.cpan.org/~rjbs/MIME-Lite-3.022/lib/MIME/Lite.pm</a> <<a href="http://search.cpan.org/%7Erjbs/MIME-Lite-3.022/lib/MIME/Lite.pm" target="_blank">http://search.cpan.org/%7Erjbs/MIME-Lite-3.022/lib/MIME/Lite.pm</a>><div>
<br>
<br>
Não tenho idéia de porque não está enviando se é tão simples:<br>
( Não devo estar vendo algum detalhe )<br>
<br>
use MIME::Lite;<br>
<br>
my $msg = MIME::Lite->new(<br></div>
From =>'<a href="mailto:me@myhost.com" target="_blank">me@myhost.com</a> <mailto:<a href="mailto:me@myhost.com" target="_blank">me@myhost.com</a>>',<br>
To =>'<a href="mailto:daniel.oliveira.mantovani@gmail.com" target="_blank">daniel.oliveira.mantovani@gmail.com</a> <mailto:<a href="mailto:daniel.oliveira.mantovani@gmail.com" target="_blank">daniel.oliveira.mantovani@gmail.com</a>>',<br>
Cc =>'<a href="mailto:daniel.oliveira.mantovani@hotmail.com" target="_blank">daniel.oliveira.mantovani@hotmail.com</a> <mailto:<a href="mailto:daniel.oliveira.mantovani@hotmail.com" target="_blank">daniel.oliveira.mantovani@hotmail.com</a>>',<div>
<br>
Subject =>'Helloooooo, nurse!',<br>
Data =>"How's it goin', eh?"<br>
);<br>
<br>
$msg->send();<br>
<br>
-- <br>
print "\x54\x68\x65\x20\x53\x69\x6c\x65\x6e\x74\x20\x47\x75\x61\x72\x64\x69\x61\x6e",$/<br></div>
------------------------------------------------------------------------<br>
<br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</blockquote>
<br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</blockquote></div></div></div><div><div></div><div class="Wj3C7c"><br><br clear="all"><br>-- <br>print "\x54\x68\x65\x20\x53\x69\x6c\x65\x6e\x74\x20\x47\x75\x61\x72\x64\x69\x61\x6e",$/<br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>print "\x54\x68\x65\x20\x53\x69\x6c\x65\x6e\x74\x20\x47\x75\x61\x72\x64\x69\x61\x6e",$/<br>