[SP-pm] Fwd: [perlbr] Email com autenticação

[Esdras Neto]

Consegui resolver o problema da autenticação
Tive de compilar mais dois modulos do Perl
Authen-SASL
e
Net-SMTP_auth

Segue o script que fiz

 #!/usr/bin/perl -w

use strict;
use Net::SMTP_auth;

my $smtp = Net::SMTP_auth->new('smtp.dominio.com.br',
Debug => 1,
Timeout => 60
);
$smtp->auth('CRAM-MD5','user em dominio.com.br','senha');
$smtp->mail('user em dominio.com.br');
$smtp->to(' user em dominio.com.br');
$smtp->to('user2 em dominio.com.br');
$smtp->data();
$smtp->datasend("Subject: teste \n\n");
$smtp->datasend("Isso eh um teste \n");
$smtp->dataend();
$smtp->quit();
print "Email enviado!\n\n";
exit;


Obrigado por todos que ajudaram!

Esdras




On 8/15/06, Marco A P D´Andrade <mda em embratel.net.br> wrote:
>
>  A autenticacao tem de ser feita antes de qualquer outro comando ...
>
>
> E para tirar outras duvidas ...
>     não acrescente escape em aspas simles ... to('user\@' ...
>     nao utilize quebras de linhas nos enderecos de email
>     acrescente os parametros Debug=>1 ao criar o objeto $smtp ...
>
> Sds,
> Marco Antonio
>
>
>
> Esdras Neto wrote:
>
> > Pessoal,
> >
> > Tenho um script para enviar email, mas ele não funciona.
> >
> > Alguem já fez algo do tipo e sabe fazer funcionar ?
> >
> >
> >
> > #!/usr/bin/perl
> >
> > use Net::SMTP;
> > $smtp = Net::SMTP->new('smtp.dominio.com.br');
> > $smtp->mail("user");
> > $smtp->auth("user","pass");
> > $smtp->to('user\@dominio.com.br\n');
> > $smtp->data();
> > $smtp->datasend("To: user\@dominio.com.br\n\n");
> > $smtp->datasend("From: user\@dominio.com.br\n\n");
> > $smtp->datasend("email enviado!");
> > $smtp->quit;
> > print "Content-type: text/html\n\n";
> > print "email enviado\n\n";
> > exit;
> >
> >
> >
> >
> > Esdras
> >
> > --
> > "Conquistemos a terra em nome do Senhor"
> >
>
>
>
> --
> Marco Antonio P D'Andrade
> Gerencia Servicos Redes Clientes - (Servidores Internet)
> Embratel - Rio de Janeiro - RIT 521-4898
>
>
> __._,_.___
>
>  *Yahoo! Grupos, um serviço oferecido por:*  PUBLICIDADE
>  <http://br.ard.yahoo.com/SIG=12fca49f4/M=396563.7943091.9891114.2369893/D=brclubs/S=2137114674:HM/Y=BR/EXP=1155667435/A=3909188/R=0/id=noscript/SIG=15kgg4brd/*http://lt.dell.com/lt/lt.aspx?CID=15059&LID=369490&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/features.aspx/advertised_latitude_D520?c%3dbr%26l%3dpt%26s%3ddhs>
> ------------------------------
> *Links do Yahoo! Grupos*
>
>    - Para visitar o site do seu grupo na web, acesse:
>    http://br.groups.yahoo.com/group/perlbr/
>
>    - Para sair deste grupo, envie um e-mail para:
>    perlbr-unsubscribe em yahoogrupos.com.br
>    <perlbr-unsubscribe em yahoogrupos.com.br?subject=Unsubscribe>
>
>    - O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
>    Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>.
>
>
> __,_._,___
>



-- 
"Conquistemos a terra em nome do Senhor"


-- 
"Conquistemos a terra em nome do Senhor"
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/saopaulo-pm/attachments/20060815/8a15c1bc/attachment.html