<html>
<head>
<style>
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
FONT-SIZE: 10pt;
FONT-FAMILY:Tahoma
}
</style>
</head>
<body class='hmmessage'><div style="text-align: left;">Ricardo,<br><br>Teste conexão com o servidor SMTP usando telnet mesmo... para você ter certeza que está usando parâmetros corretos para conexão.<br><br>No mais, pelo que vi você está forçando o método de autenticação "PLAIN". Existe um método nesse mesmo módulo que retorna todos os métodos de autenticação que o servidor suporta, dê uma olhada se plain está incluído.<br><br>[]'s<br></div><br>---<br>Alceu Rodrigues de Freitas Junior<br>glasswalk3r@hotmail.com<br><br><br><hr id="stopSpelling">> From: ricardostock@bol.com.br<br>> To: cascavel-pm@pm.org<br>> Date: Mon, 8 Oct 2007 23:26:06 -0300<br>> Subject: [Cascavel-pm] smtp via perl<br>> <br>> boa noite a todos da lista.... gente to com uma duvida..... o script parece <br>> correto, mas não funciona.... isto é possivel ?? não me da nenhum erro<br>> <br>> <br>> #!c:\perl\bin\perl.exe<br>> <br>> use warnings;<br>> use strict;<br>> use CGI qw(:standard);<br>> #use CGI::Carp qw(fatalsToBrowser warningsToBrowser);<br>> <br>> my $servidor='smtps.bol.com.br'; #exemplo<br>> my $usuario='usuario'; # ja tentei coloar com @ e dominio mas também não <br>> funciona<br>> my $senha='senha';<br>> my $de=param('de');<br>> my $para=param('para');<br>> my $mensagem=param('mensagem');<br>> my $titulo='mensagem de teste';<br>> <br>> <br>> use Net::SMTP_auth;<br>> my $smtp = Net::SMTP_auth->new("$servidor", Timeout=>60, Debug=>1);<br>> $smtp->auth('PLAIN',$usuario,$senha);<br>> $smtp->mail($de);<br>> $smtp->to($para);<br>> $smtp->data();<br>> $smtp->datasend("To: $para\n");<br>> $smtp->datasend("From: $de\n");<br>> $smtp->datasend("Subject: $titulo\n");<br>> $smtp->datasend("Content-type: text/html\n\n");<br>> $smtp->datasend($mensagem);<br>> $smtp->dataend();<br>> $smtp->quit;<br>> <br>> print "Content-type: text/html\n\n";<br>> print "E-mail enviado!";<br>> <br>> <br>> estou tentando mandar e-mail via smtp, atraves do perl... consultando na net <br>> e vendo uns modulos, fiz ese script, mas não estou recebemdo os e-mails <br>> enviados pela pagina de envio.... se alguem tiver uma dica... agradeço.... <br>> se também isto não for mais possivel, paciencia... :-)<br><br><br /><hr />Explore the seven wonders of the world <a href='http://search.msn.com/results.aspx?q=7+wonders+world&mkt=en-US&form=QBRE' target='_new'>Learn more!</a></body>
</html>