Enviando email com anexo usando Perl

Publicado: agosto 26, 2008 em dicas, perl, programação

Abaixo especifico o scrip !!!!

#!/usr/bin/perl
# este modulo eh necessario para que tudo ocorra corretamente.
use MIME::Entity;

$txt1 = “O servidor de backup realizou o backup com sucesso,em anexo o script de backup !”;

$top = build MIME::Entity  From => ‘Root <root>’,
To   =>   ‘suporte@domain’,
Subject => “[Backup-Empresa] Confirmação do Backup “,
Data => $txt1;

# Anexo
$top->attach(
Name        => “algumacoisaExemplo.sh”,
Path        => “/diretorio/algumacoisaExemplo.sh”,
# Se o anexo for compactado
#Type        => “application/x-gtar”,
Encoding    => “base64″
);

# Agente MTA do seu servidor
open(MAIL,”| /usr/lib/sendmail -t”);
$top->print(\*MAIL);
close(MAIL);

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s