mimemail.pl

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

[ Hits: 4.491 ]

Homepage: https://mestrefabio.com

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

newsletter.pl

Apagar spam na fila do postfix por palavra

Validando lista de e-mail no MX

Apagar MAILER-DAEMON da fila de email

Notificador de Gmail no Conky.


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts