Envia e-mail com anexo

Descrição

Esconder código-fonte

#!/usr/bin/perl
# ###########################################################
# 26/08/2002
#
# Por Fábio Berbert de Paula <fabio@vivaolinux.com.br>
# fabio@vivaolinux.com.br
# na web em: www.vivaolinux.com.br
# 
# Script usado para enviar um arquivo anexado por email
#
# ###########################################################

# este modulo e' necessario para o funcionamento do script
use MIME::Entity;

$texto = "Aqui vem o texto do email ...";
$top = build MIME::Entity  From => 'Eu <eu@meudominio.com>',
                           To   =>   'voce@seudominio.com',
                           Subject => "Teste de anexo",
                           Data => $texto;

# definindo o anexo
$top->attach(
            Name        => "arquivo.gz",
            Path        => "/tmp/arquivo.gz",
            Type        => "application/x-gtar", 
            Encoding    => "base64"
);

# caminho para o programa do agente MTA do seu servidor
open(MAIL,"| /usr/lib/sendmail -t");
$top->print(\*MAIL);
close(MAIL);