Envia e-mail com anexo

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

[ Hits: 10.682 ]

Homepage: https://fabio.automatizando.dev

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 <fabio@vivaolinux.com.br>
# fabio@vivaolinux.com.br
# 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 <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"
);

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

Scripts recomendados

Retorna apenas emails válidos com MX válidos

Notificador de Gmail no Conky.

Retornar somente e-mails válidos

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

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts