mimemail.pl [Perl]

mimemail.pl

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

[ Hits: 4.597 ]

Homepage: https://fabio.automatizando.dev

Download mimemail.zip

0 0

Denuncie Favoritos Indicar

Script em PERL utilizado para enviar arquivos anexados por email. Este script requer o módulo MIME::Entity, que pode ser encontrado em http://search.cpan.org. Altere o código-fonte com suas configurações.

Esconder código-fonte

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

use MIME::Entity;

$texto = "
Olá,

Em anexo segue um arquivo anexado ...

Att,
VivaoLinux
";

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

open(MAIL,"| /usr/lib/sendmail -t");
$top->print(\*MAIL);
close(MAIL);

Scripts recomendados

FetchYahoo 2.8.1

Envia e-mail com anexo

Remover caixas postais do Cyrus IMAP

Apagar spam na fila do postfix por palavra

Adicionar conta de e-mail - Postfix com domínios virtuais no MySQL

Comentários

Nenhum comentário foi encontrado.