mimemail.pl

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

[ Hits: 3.985 ]

Homepage: https://youtube.com/c/cotidianohackeado

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 <[email protected]>
# 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 <[email protected]>',
                           To   =>   '[email protected]',
                           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

Retorna apenas emails válidos com MX válidos

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

Envia e-mail com anexo

Remover caixas postais do Cyrus IMAP

Apagar MAILER-DAEMON da fila de email


  

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