1

Tenho esse código em Perl que envia emails de uma lista com assunto e corpo, preciso de um que faça isso mas que seja possível anexar algum arquivo da minha escolha. Alguém pode me ajudar?

#!/usr/local/bin/perl

$ARGC=@ARGV;
if ($ARGC !=4) {
   printf "Você digitou de uma forma errada. Siga as instruções.\n";
   printf "INSTRUÇÕES - UND3F1N3D\n";
   printf "perl $0 <mailist> <remetente\@mail.com> <assunto> <corpo.html>\n";
   printf "Exemplo: perl $0 lista01.txt peu\@msn.com Ola index.html\n";
   exit(1);
}

$mailtype = "content-type: text/html";
$sendmail = '/usr/sbin/sendmail';
$sender = $ARGV[1];
$subject = $ARGV[2];
$efile = $ARGV[0];
$emar = $ARGV[0];
open(FOO, $ARGV[3]);
@foo = <FOO>;
$corpo = join("\n", @foo);
open (BANDFIT, "$emar") || die "Can't Open $emar";
$cont=0;

while(<BANDFIT>) {
   ($ID,$options) = split(/\|/,$_);
   chop($options);
   foreach ($ID) {
      $recipient = $ID;
      open (SENDMAIL, "| $sendmail -t");
      print SENDMAIL "$mailtype\n";
      print SENDMAIL "Subject: $subject\n";
      print SENDMAIL "From: $sender\n";
      print SENDMAIL "To: $recipient\n\n";
      print SENDMAIL "$corpo\n\n";
      close (SENDMAIL);
      $cont=$cont+1;
      printf "$cont Enviado para $recipient";
   }
}
close(BANDFIT);

1 Resposta 1

1

Para isto eu acredito que você terá que usar o modulo MIME::Lite, baixe ele em http://www.cpan.org/authors/id/R/RJ/RJBS/MIME-Lite-3.030.tar.gz

Nota: se o link estiver desatualizado acesse por aqui http://search.cpan.org/~rjbs/ e procure com Ctrl+F por MIME-LITE)

Comando para compilar e instalar:

$tar xvfz MIME-Lite-3.030.tar.gz
$cd MIME-Lite-3.030
$perl Makefile.PL
$make
$make install

Dependencias

Para usar o MIME-LITE é necessário instalar os seguintes modulos:

Um exemplo simples de anexo:

#!/usr/bin/perl
use MIME::Lite;

$to = '[email protected]';
$cc = '[email protected]';
$from = '[email protected]';
$subject = 'email de teste';
$message = 'Corpo do email de teste';

$msg = MIME::Lite->new(
                 From     => $from,
                 To       => $to,
                 Cc       => $cc,
                 Subject  => $subject,
                 Type     => 'multipart/mixed'
                 );

# Add your text message.
$msg->attach(Type         => 'text',
             Data         => $message
            );

# Specify your file as attachement.
$msg->attach(Type        => 'image/gif', #Mimetype do arquivo
             Path        => '/tmp/logo.gif', #Pasta do arquivo
             Filename    => 'logo.gif', #Nome do arquivo
             Disposition => 'attachment'
            );       
$msg->send;
print "Email enviado com sucesso\n";

Documentação: http://search.cpan.org/~rjbs/MIME-Lite-3.030/lib/MIME/Lite.pm

Modificando o seu código existente:

#!/usr/local/bin/perl
use MIME::Lite;

$ARGC=@ARGV;
if ($ARGC !=4) {
   printf "Você digitou de uma forma errada. Siga as instruções.\n";
   printf "INSTRUÇÕES - UND3F1N3D\n";
   printf "perl $0 <mailist> <remetente\@mail.com> <assunto> <corpo.html>\n";
   printf "Exemplo: perl $0 lista01.txt peu\@msn.com Ola index.html\n";
   exit(1);
}

$sendmail = '/usr/sbin/sendmail';
$sender = $ARGV[1];
$subject = $ARGV[2];
$efile = $ARGV[0];
$emar = $ARGV[0];
open(FOO, $ARGV[3]);
@foo = <FOO>;
$corpo = join("\n", @foo);
open (BANDFIT, "$emar") || die "Can't Open $emar";
$cont=0;

while(<BANDFIT>) {
   ($ID,$options) = split(/\|/,$_);
   chop($options);
   foreach ($ID) {
      $recipient = $ID;
        $msg = MIME::Lite->new(
                         From     => $sender,
                         To       => $recipient,
                         Subject  => $subject,
                         Type     => 'multipart/mixed'
                         );

        # Add your text message.
        $msg->attach(Type         => 'text/html',
                     Data         => $corpo
                    );

        # Specify your file as attachement.
        $msg->attach(Type        => 'image/gif', #Mimetype do arquivo
                     Path        => '/tmp/logo.gif', #Pasta do arquivo
                     Filename    => 'logo.gif', #Nome do arquivo
                     Disposition => 'attachment'
                    );       
        $msg->send;

      $cont=$cont+1;
      printf "$cont Enviado para $recipient";
   }
}
close(BANDFIT);
11
  • Boa tarde Guilherme, nesse seu exemplo enviaria 1 email de cada vez e n me serviria, eu vou tentar fazer a junção dos dois, mas n entendo nada de perl. Mesmo assim, obrigado. Commented 21/06/2015 às 16:58
  • Mas aí não seria mais de um anexo ao inves de varios emails? O primeiro código carrega os emails a partir de uma mailing list. Commented 21/06/2015 às 17:31
  • Obrigadão cara, vou testar aqui... me quebrou uma arvore hahah Commented 21/06/2015 às 18:10
  • 1
    Para instalar o módulo sugeria sudo cpan MIME::Lite que trata de tudo inclusivé o fecho das dependências. (+1)
    – JJoao
    Commented 7/07/2015 às 21:43
  • 1
    @JJoao Obrigado, tenho costume de usar make, as vezes nem imagino que existem atalhos :) Parece bem útil.
    – Syzoth
    Commented 7/07/2015 às 21:47

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .