[Cascavel-pm] smtp via perl

[Ricardo Stock]

poxa como não vi isso antes... valeu mesmo Marco, o que estava dando errado 
era que a variavel "de" tinha que ser o mesmo do usuário.....

Obrigado pelo toque....

----- Original Message ----- 
From: "Marco A P D'Andrade" <mdacwb em gmail.com>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Tuesday, October 09, 2007 3:06 PM
Subject: Re: [Cascavel-pm] smtp via perl


Além disso, é sempre importante fazer teste de retorno, em especial:

my $smtp = Net::SMTP_auth->new("$servidor", Timeout=>60, Debug=>1);

$smtp->mail($de); << a maioria das vezes deve ser o mesmo de login
$smtp->to($para); << pode ser recusado, mas não exige abort para

Como vc não está fazendo logs, ficará dificil saber em qq momento as
causas de falha.


Sds,
Marco Antonio


Em 09/10/07, Alceu Rodrigues de Freitas
Junior<glasswalk3r em hotmail.com> escreveu:
>
> Ricardo,
>
> Teste conexão com o servidor SMTP usando telnet mesmo... para você ter
> certeza que está usando parâmetros corretos para conexão.
>
> 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.
>
> []'s
>
> ---
> Alceu Rodrigues de Freitas Junior
> glasswalk3r em hotmail.com
>
>
> ________________________________
> > From: ricardostock em bol.com.br
> > To: cascavel-pm em pm.org
> > Date: Mon, 8 Oct 2007 23:26:06 -0300
> > Subject: [Cascavel-pm] smtp via perl
>
> >
> > boa noite a todos da lista.... gente to com uma duvida..... o script
> parece
> > correto, mas não funciona.... isto é possivel ?? não me da nenhum erro
> >
> >
> > #!c:\perl\bin\perl.exe
> >
> > use warnings;
> > use strict;
> > use CGI qw(:standard);
> > #use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
> >
> > my $servidor='smtps.bol.com.br'; #exemplo
> > my $usuario='usuario'; # ja tentei coloar com @ e dominio mas também não
> > funciona
> > my $senha='senha';
> > my $de=param('de');
> > my $para=param('para');
> > my $mensagem=param('mensagem');
> > my $titulo='mensagem de teste';
> >
> >
> > use Net::SMTP_auth;
> > my $smtp = Net::SMTP_auth->new("$servidor", Timeout=>60,
> Debug=>1);
> > $smtp->auth('PLAIN',$usuario,$senha);
> > $smtp->mail($de);
> > $smtp->to($para);
> > $smtp->data();
> > $smtp->datasend("To: $para\n");
> > $smtp->datasend("From: $de\n");
> > $smtp->datasend("Subject: $titulo\n");
> > $smtp->datasend("Content-type: text/html\n\n");
> > $smtp->datasend($mensagem);
> > $smtp->dataend();
> > $smtp->quit;
> >
> > print "Content-type: text/html\n\n";
> > print "E-mail enviado!";
> >
> >
> > estou tentando mandar e-mail via smtp, atraves do perl... consultando na
> net
> > e vendo uns modulos, fiz ese script, mas não estou recebemdo os e-mails
> > enviados pela pagina de envio.... se alguem tiver uma dica... 
> > agradeço....
> > se também isto não for mais possivel, paciencia... :-)
>
>
> ________________________________
> Explore the seven wonders of the world Learn more!
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm