[Cascavel-pm] Cliente SMTP

Ricardo Stock ricardostock em bol.com.br
Quinta Janeiro 24 17:53:20 PST 2008


Olha, eu fiz um script usando Net::SMTP_auth; ta rodando e sem erro e 
warnings e com strict :-)

O mesmo usa autenticação.

Só um detalhe eu vi em seu script
nessa linha
my $from = 'Rafael Lebrao'; eu colocaria dessa forma, soi assim que eu fiz 
no meu e funciona
my $from = 'Rafael Lebrao em dominio.com.br';

Se te ajuda, veja o meu código abaixo

um abraço

######################################################################

#!c:\perl\bin\perl.exe
use warnings;
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
my $servidor='smtp.dominio.com.br';
my $usuario='nome em dominio.com.br';
my $senha='senha';
my $de=(quemtamandando); #aqui eu coloquei o meu email que autentico no 
servidor
my $para=param('para');
my $mensagem=param('mensagem');
my $titulo='titulo';


use Net::SMTP_auth;
my $smtp = Net::SMTP_auth->new("$servidor", Timeout=>60, Debug=>1) || die 
("erro: $!\n");
$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!";

#########################################################################


Ricardo Stock
ricardostock em bol.com.br



----- Original Message ----- 
From: "Alceu R. de Freitas Jr." <glasswalk3r em yahoo.com.br>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Thursday, January 24, 2008 5:59 PM
Subject: Re: [Cascavel-pm] Cliente SMTP


Os motivos podem ser vários, não necessariamente erro
no seu código. Se você der uma olhada na documentação,
vai ver que é possível ativar debug durante a
instanciação do objeto:

http://search.cpan.org/~gbarr/libnet-1.22/Net/SMTP.pm#CONSTRUCTOR

No mais, um sniffer também deve lhe ajudar.
Agora, se do outro lado você não receber a mensagem, é
preciso verificar redirecionares, filtros de SPAM,
etc.

[]'s
Alceu

--- Rafael Lebrao Martins <rafamv1 em ig.com.br>
escreveu:

> Boa tarde, pessoal. Estou tentando utilizar o módulo
> Net::SMTP para criar um
> cliente de e-mail. Escrevi o código abaixo, no
> entanto não está
> funcionando.. Ele não envia o e-mail, mas não dá
> erro algum.. O que pode
> estar ocorrendo?
>
>
> #!/usr/bin/perl
> use warnings;
> use strict;
> use Net::SMTP;
>
> my $server = 'smtp.meu_dominio.com.br';
> my $from = 'Rafael Lebrao';
> my $address = 'destinatario em dominio.com.br';
> my $to = 'Destiatario';
> my $subject = 'Relatorios';
> my $message = 'Teste de envio';
>
> my $smtp = new Net::SMTP ("$server", Hello =>
> "$server" ) or die( "cannot
> send e-mail: $!");
>
> $smtp->mail("$server");
> $smtp->to("$address");
> $smtp->data();
> $smtp->datasend("From: $from\n");
> $smtp->datasend("To: $to\n");
> $smtp->datasend("Subject: $subject\n\n");
> $smtp->datasend("$message\n");
> $smtp->dataend();
> $smtp->quit();




      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm 



Mais detalhes sobre a lista de discussão Cascavel-pm