[SP-pm] MIME::Lite

Marcio - Google marciorp at gmail.com
Thu Sep 12 05:35:12 PDT 2013


Posso tá falando besteira, mas não vi onde você define a porta.
Me parece que o Google andou mudando a porta padrão ha algum tempo, e agora
deve ter desativado de vez a anterior.
Não confirmo pra ti porque tô no cell.

[...]'s

Marcio

========================================
########### Campanha Ajude o Marcio! ###########
http://sosmarcio.blogspot.com.br/
http://www.vakinha.com.br/VaquinhaP.aspx?e=195793
========================================
Em 12/09/2013 08:15, "Ailton Zacarias" <ailtonzsilva em 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 = 'user em gmail.com';
> my $senha = 'senha';
> my $cc = 'user em gmail.com,user em 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: ailtonzsilva em gmail.com
>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm em pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20130912/544afec8/attachment-0001.html>


More information about the SaoPaulo-pm mailing list