Envia e-mail com anexo [Perl]

Envia e-mail com anexo

Publicado por Fábio Berbert de Paula 13/11/2002

[ Hits: 10.763 ]

Homepage: https://fabio.automatizando.dev

Download mimeMail.zip

0 0

Denuncie Favoritos Indicar

Este script mostra como enviar arquivos anexados por email utilizando o módulo MIME::Mail e o servidor de SMTP local.

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);

Scripts recomendados

Email UserAdmin

Retornar somente e-mails válidos

newsletter.pl

FetchYahoo 2.8.1

Remover caixas postais do Cyrus IMAP

Comentários

Nenhum comentário foi encontrado.