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.

• Download mimemail.zip
• Enviar nova versão

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

Validando lista de e-mail no MX

newsletter.pl

Retornar somente e-mails válidos

Remover caixas postais do Cyrus IMAP

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

Nenhum comentário foi encontrado.