Putz, Era isso mesmo fiz a seguinte alteração e funcionou
MIME::Lite->send('smtp',$SMTP_SERVER, AuthUser=>$to, AuthPass=>$senha,Port => 587); Seria necessário tbm incrementar Timeout=>60 para qualquer problema futuro? Em 12 de setembro de 2013 09:42, Lucas Oliveira < lucasmateus.olive...@gmail.com> escreveu: > > Na verdade não é o Google que está fechando a porta, são os provedores, é > muito provavel que esse disparo é feito utilizando um serviço de Internet > domestica ou não própria para isso, para esses casos é aconselhavel fechar > a porta 25 pois a conexão com servidores SMTP por clientes agora é feita > pela porta 587 e a 25 fica limita a comunicação entre servidores. > > Sendo assim, tente utilizar a porta 587. > > Em 12/09/2013, às 09:13, Ailton Zacarias <ailtonzsi...@gmail.com> > escreveu: > > Bom dia a todos, > > O código abaixo estava funcionando corretamente a mais de 2 anos porem a 4 > dias não funciona mais e error que mostra ao executar é > > > "SMTP Failed to connect to mail server: Uma tentativa de conexÒo falhou > porque o > componente conectado nÒo respondeu > corretamente ap¾s um perÝodo de tempo ou a conexÒo estabelecida falhou > porque o host conectado nÒo respondeu." > > alguem pode me ajudar? > > > AMBIENTE: Win7 e WinXP > > > segue abaixo o script: > > #!c:/Perl/perl.exe -w > > use warnings; > > my $Cliente = 'CLIENTE'; > my $smtp = 'smtp.gmail.com'; > my $to = 'u...@gmail.com'; > my $senha = 'senha'; > my $cc = 'u...@gmail.com,u...@yahoo.com.br'; > > $Cliente = $Cliente.'_'.DataHora(); > my $Lista = 'Arquivos.txt'; > my $Pacote = $Cliente.".zip"; > > CompactarArquivos($Lista,$Pacote); > EnviarDados($smtp,$to,$Cliente,$Pacote,$cc); > > sub EnviarDados{ > # SMTP, E-MAIL, TITULO, ARQUIVO, CC > > use MIME::Lite; > use MIME::Base64; > use Authen::SASL; > @ARQV = $_[3]; > > # Configuração do E-mail. > my $SMTP_SERVER = $_[0]; > my $DEFAULT_SENDER = $_[1]; > my $DEFAULT_RECIPIENT = $_[4]; > MIME::Lite->send('smtp',$SMTP_SERVER, Timeout=>60, AuthUser=>$to, > AuthPass=>$senha); > my (%o, $msg); > > $o{f} ||= $DEFAULT_SENDER; > $o{t} ||= $DEFAULT_RECIPIENT; > $o{s} ||= $_[2]; > $o{c} ||= $_[1]; > # construct and send email > $msg = new MIME::Lite( > From => $o{f}, > To => $o{t}, > Subject => $o{s}, > Data => "Hi", > Type => "multipart/mixed", > ); > > # Anexar arquivo p/ envio. > while (@ARQV) { > $msg->attach('Type' => 'application/octet-stream', > 'Encoding' => 'base64', > 'Path' => shift @ARQV); > } > > # Enviar e-mail > $msg->send(); > } > > sub CompactarArquivos{ > # ARQVS, NomeDoPacote > # Create a Zip file > use Getopt::Std; > use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); > my $zip = Archive::Zip->new(); > > open(my $file, q{<}, $_[0]) or die "Can't open file $!\n"; > foreach my $arquivo ( <$file> ) { > #Remove o último caractere apenas se for igual a $/ "Separador de > regsitro" > chomp($arquivo); > # Verifica se o arquivo existe > if (-e $arquivo){ > # Add a file from disk > my $file_member = $zip->addFile($arquivo); > } > } > > # Save the Zip file > unless ( $zip->writeToFileNamed($_[1]) == AZ_OK ) { > die 'write error'; > } > } > sub DataHora{ > # Criar layout de data > my($dd,$mm,$yy,$day,$hh,$nn) = (localtime)[3,4,5,6,2,1]; > my $today = join '', map sprintf("%02d", $_),($yy%100,$mm+1,$dd,); > my $hr = join '', map sprintf("%02d", $_),($hh,$nn); > > # "Vasio" = Data e hora | "1" Apenas Data > my $data = $_[0] ? $today:$today.'_'.$hr; > my $datahora = $data; > return ($datahora); > } > > > -- > Ailton Zacarias > Cel: 55 +11 9 4857-5143 > Tel: 55 +11 2373-7625 > Skype: ailton.zacarias > Msn: ailtonzsi...@gmail.com > > _______________________________________________ > Rio-pm mailing list > Rio-pm@pm.org > http://mail.pm.org/mailman/listinfo/rio-pm > > > > _______________________________________________ > Rio-pm mailing list > Rio-pm@pm.org > http://mail.pm.org/mailman/listinfo/rio-pm > -- Ailton Zacarias Cel: 55 +11 9 4857-5143 Tel: 55 +11 2373-7625 Skype: ailton.zacarias Msn: ailtonzsi...@gmail.com
_______________________________________________ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm