mimemail.pl

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

[ Hits: 3.859 ]

Homepage: https://fabio.city

Download mimemail.zip




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

Notificador de Gmail no Conky.

Apagar spam na fila do postfix por palavra

Email UserAdmin

Validando lista de e-mail no MX

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


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts