Envia e-mail com anexo

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

[ Hits: 9.946 ]

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

Download mimeMail.zip




Este script mostra como enviar arquivos anexados por email utilizando o módulo MIME::Mail e o servidor de SMTP local.

  



Esconder código-fonte

#!/usr/bin/perl
# ###########################################################
# 26/08/2002
#
# Por Fábio Berbert de Paula <[email protected]>
# [email protected]
# na web em: www.vivaolinux.com.br
# 
# Script usado para enviar um arquivo anexado por email
#
# ###########################################################

# este modulo e' necessario para o funcionamento do script
use MIME::Entity;

$texto = "Aqui vem o texto do email ...";
$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"
);

# caminho para o programa do agente MTA do seu servidor
open(MAIL,"| /usr/lib/sendmail -t");
$top->print(\*MAIL);
close(MAIL);

Scripts recomendados

FetchYahoo 2.8.1

mimemail.pl

Email UserAdmin

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.


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