[Ajuda] Código para enviar e-mails

kynwosh
(usa Ubuntu)

Enviado em 19/06/2015 - 15:37h

Boa tarde, 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 escola, alguém pode me ajudar?
Desde já agradeço.

#!/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);

 

mineirobr
(usa Debian)

Enviado em 30/06/2015 - 10:20h

Tente esse módulo:
https://metacpan.org/pod/Mail::SendEasy

Dai você usa anex ou zipanex, é só apontar o caminho dele no servidor, exemplo:
anex => ['/home/user/foto1.jpg', '/home/user/foto2.jpg']

Falou.

dvinciguerra
(usa Debian)

Enviado em 14/10/2015 - 18:31h

Como o @mineirobr falou, é melhor utilizar um modulo caso você possa pois é um tanto chatinho fazer na mão.

Recomento o modulo MIME::Lite (metacpan.org/pod/MIME::Lite) que pode ser baixado e instalado usando o comando abaixo:

perl -MCPAN -e 'install MIME::Lite'

 

Ou de forma mais pragmática:

cpan MIME::Lite

 

Isso deve instalar seu modulo e você poderá utilizar conforme a documentação:

use MIME::Lite



# message

my $msg = MIME::Lite->new(

    From    =>'me@email.com',

    To      =>'you@email.com',

    Subject =>'Hello World',

    Type    =>'TEXT',

    Data    =>"Mandando esta imagem pra você...."

);

 

# attach 

$msg->attach(

    Type     =>'image/jpg',

    Path     =>'minha_imagem.jpg',

    Filename =>'arquivo.jpg'

);



# sending

$msg->send;

 

Qualquer duvida poste aqui...

Abraço,