<div dir="ltr">Putz,<div><br></div><div>Era isso mesmo fiz a seguinte alteração e funcionou</div><div><br></div><div>MIME::Lite->send('smtp',$SMTP_SERVER, AuthUser=>$to, AuthPass=>$senha,Port => 587);<br>
</div><div><br></div><div>Seria necessário tbm incrementar Timeout=>60 para qualquer problema futuro?</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 12 de setembro de 2013 09:42, Lucas Oliveira <span dir="ltr"><<a href="mailto:lucasmateus.oliveira@gmail.com" target="_blank">lucasmateus.oliveira@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div style="word-wrap:break-word"><div><br></div><div><span style="white-space:pre-wrap"> </span>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.</div>
<div><br></div><div><span style="white-space:pre-wrap"> </span>Sendo assim, tente utilizar a porta 587.</div><br><div><div>Em 12/09/2013, às 09:13, Ailton Zacarias <<a href="mailto:ailtonzsilva@gmail.com" target="_blank">ailtonzsilva@gmail.com</a>> escreveu:</div>
<br><blockquote type="cite"><div><div class="h5"><div dir="ltr">Bom dia a todos,<div><br></div><div>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 é </div>
<div><br></div><div><br></div><div>
"SMTP Failed to connect to mail server: Uma tentativa de conexÒo falhou porque o</div><div>componente conectado nÒo respondeu</div><div>corretamente ap¾s um perÝodo de tempo ou a conexÒo estabelecida falhou</div><div>
porque o host conectado nÒo respondeu."</div>
<div><br></div><div>alguem pode me ajudar?</div><div><br></div><div><br></div><div><div>AMBIENTE: Win7 e WinXP </div><div><br></div><div><br></div><div>segue abaixo o script:</div><div><br></div><div><div>#!c:/Perl/perl.exe -w</div>
<div><br></div>
<div>use warnings;</div><div><br></div><div>my $Cliente = 'CLIENTE';</div><div>my $smtp<span style="white-space:pre-wrap"> </span>= '<a href="http://smtp.gmail.com/" target="_blank">smtp.gmail.com</a>';</div>
<div>my $to<span style="white-space:pre-wrap"> </span>= '<a href="mailto:user@gmail.com" target="_blank">user@gmail.com</a>';</div>
<div>my $senha<span style="white-space:pre-wrap"> </span>= 'senha';</div><div>my $cc<span style="white-space:pre-wrap"> </span>= '<a href="mailto:user@gmail.com" target="_blank">user@gmail.com</a>,<a href="mailto:user@yahoo.com.br" target="_blank">user@yahoo.com.br</a>';</div>
<div><br></div><div>$Cliente = $Cliente.'_'.DataHora();</div><div>my $Lista = 'Arquivos.txt';</div><div>my $Pacote = $Cliente.".zip";</div><div><br></div><div>CompactarArquivos($Lista,$Pacote);</div>
<div>EnviarDados($smtp,$to,$Cliente,$Pacote,$cc);</div><div><br></div><div>sub EnviarDados{</div><div># SMTP, E-MAIL, TITULO, ARQUIVO, CC</div><div><br></div><div><span style="white-space:pre-wrap"> </span>use MIME::Lite;</div>
<div><span style="white-space:pre-wrap"> </span>use MIME::Base64;</div><div><span style="white-space:pre-wrap"> </span>use Authen::SASL;</div><div><span style="white-space:pre-wrap"> </span></div><div><span style="white-space:pre-wrap"> </span>@ARQV = $_[3];</div>
<div><br></div><div><span style="white-space:pre-wrap"> </span># Configuração do E-mail.</div><div><span style="white-space:pre-wrap"> </span>my $SMTP_SERVER = $_[0];</div><div><span style="white-space:pre-wrap"> </span>my $DEFAULT_SENDER = $_[1];</div>
<div><span style="white-space:pre-wrap"> </span>my $DEFAULT_RECIPIENT = $_[4];</div><div><span style="white-space:pre-wrap"> </span></div><div><span style="white-space:pre-wrap"> </span>MIME::Lite->send('smtp',$SMTP_SERVER, Timeout=>60, AuthUser=>$to, AuthPass=>$senha);</div>
<div><span style="white-space:pre-wrap"> </span></div><div><span style="white-space:pre-wrap"> </span>my (%o, $msg);</div><div><span style="white-space:pre-wrap"> </span> </div><div><span style="white-space:pre-wrap"> </span>$o{f} ||= $DEFAULT_SENDER;</div>
<div><span style="white-space:pre-wrap"> </span>$o{t} ||= $DEFAULT_RECIPIENT;</div><div><span style="white-space:pre-wrap"> </span>$o{s} ||= $_[2];</div><div><span style="white-space:pre-wrap"> </span>$o{c} ||= $_[1];</div>
<div><span style="white-space:pre-wrap"> </span></div><div><span style="white-space:pre-wrap"> </span># construct and send email</div><div><span style="white-space:pre-wrap"> </span>$msg = new MIME::Lite(</div>
<div><span style="white-space:pre-wrap"> </span> From => $o{f},</div><div><span style="white-space:pre-wrap"> </span> To => $o{t},</div><div><span style="white-space:pre-wrap"> </span>Subject => $o{s},</div>
<div><span style="white-space:pre-wrap"> </span> Data => "Hi",</div><div><span style="white-space:pre-wrap"> </span> Type => "multipart/mixed",</div><div><span style="white-space:pre-wrap"> </span>);</div>
<div><br></div><div><span style="white-space:pre-wrap"> </span># Anexar arquivo p/ envio.</div><div><span style="white-space:pre-wrap"> </span>while (@ARQV) {</div><div><span style="white-space:pre-wrap"> </span> $msg->attach('Type' => 'application/octet-stream',</div>
<div><span style="white-space:pre-wrap"> </span> 'Encoding' => 'base64',</div><div><span style="white-space:pre-wrap"> </span> 'Path' => shift @ARQV);</div>
<div><span style="white-space:pre-wrap"> </span>}</div><div><br></div><div><span style="white-space:pre-wrap"> </span># Enviar e-mail</div><div><span style="white-space:pre-wrap"> </span>$msg->send();</div>
<div><span style="white-space:pre-wrap"> </span>}</div><div><br></div><div>sub CompactarArquivos{</div><div># ARQVS, NomeDoPacote</div><div><span style="white-space:pre-wrap"> </span># Create a Zip file</div><div>
<span style="white-space:pre-wrap"> </span>use Getopt::Std;</div><div><span style="white-space:pre-wrap"> </span>use Archive::Zip qw( :ERROR_CODES :CONSTANTS );</div><div><span style="white-space:pre-wrap"> </span>my $zip = Archive::Zip->new();</div>
<div><br></div><div><span style="white-space:pre-wrap"> </span>open(my $file, q{<}, $_[0]) or die "Can't open file $!\n";</div><div><span style="white-space:pre-wrap"> </span>foreach my $arquivo ( <$file> ) {</div>
<div><span style="white-space:pre-wrap"> </span> #Remove o último caractere apenas se for igual a $/ "Separador de regsitro" </div><div><span style="white-space:pre-wrap"> </span> chomp($arquivo);</div>
<div><span style="white-space:pre-wrap"> </span> # Verifica se o arquivo existe </div><div><span style="white-space:pre-wrap"> </span> if (-e $arquivo){</div><div><span style="white-space:pre-wrap"> </span> # Add a file from disk</div>
<div><span style="white-space:pre-wrap"> </span> my $file_member = $zip->addFile($arquivo);</div><div><span style="white-space:pre-wrap"> </span> }</div><div><span style="white-space:pre-wrap"> </span>}</div>
<div><br></div><div><span style="white-space:pre-wrap"> </span># Save the Zip file</div><div><span style="white-space:pre-wrap"> </span>unless ( $zip->writeToFileNamed($_[1]) == AZ_OK ) {</div><div><span style="white-space:pre-wrap"> </span> die 'write error';</div>
<div><span style="white-space:pre-wrap"> </span>}</div><div><span style="white-space:pre-wrap"> </span></div><div><span style="white-space:pre-wrap"> </span>}<span style="white-space:pre-wrap"> </span></div>
<div><span style="white-space:pre-wrap"> </span></div><div>sub DataHora{</div><div># Criar layout de data</div><div><span style="white-space:pre-wrap"> </span>my($dd,$mm,$yy,$day,$hh,$nn) = (localtime)[3,4,5,6,2,1];</div>
<div><span style="white-space:pre-wrap"> </span>my $today = join '', map sprintf("%02d", $_),($yy%100,$mm+1,$dd,);</div><div><span style="white-space:pre-wrap"> </span>my $hr = join '', map sprintf("%02d", $_),($hh,$nn);</div>
<div><br></div><div><span style="white-space:pre-wrap"> </span># "Vasio" = Data e hora | "1" Apenas Data</div><div><span style="white-space:pre-wrap"> </span>my $data = $_[0] ? $today:$today.'_'.$hr;</div>
<div><span style="white-space:pre-wrap"> </span></div><div><span style="white-space:pre-wrap"> </span>my $datahora = $data;</div><div><span style="white-space:pre-wrap"> </span></div><div><span style="white-space:pre-wrap"> </span>return ($datahora);</div>
<div><span style="white-space:pre-wrap"> </span>}</div></div><div><br></div><div><br></div>-- <br><div dir="ltr">Ailton Zacarias<br>Cel: 55 +11 9 4857-5143<div>Tel: 55 +11 <span style="font-family:arial,sans-serif;font-size:13px">2373-7625</span><br>
Skype: ailton.zacarias</div><div>Msn: <a href="mailto:ailtonzsilva@gmail.com" target="_blank">ailtonzsilva@gmail.com</a><br><br></div></div>
</div></div></div></div>
_______________________________________________<br>Rio-pm mailing list<br><a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a></blockquote>
</div><br></div><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div dir="ltr">Ailton Zacarias<br>Cel: 55 +11 9 4857-5143<div>
Tel: 55 +11 <span style="font-family:arial,sans-serif;font-size:13px">2373-7625</span><br>Skype: ailton.zacarias</div><div>Msn: <a href="mailto:ailtonzsilva@gmail.com" target="_blank">ailtonzsilva@gmail.com</a><br><br></div>
</div>
</div>