Envia e-mail com anexo
Publicado por Fábio Berbert de Paula 13/11/2002
[ Hits: 10.832 ]
Homepage: https://fabio.automatizando.dev
Este script mostra como enviar arquivos anexados por email utilizando o módulo MIME::Mail e o servidor de SMTP local.
#!/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);
Retorna apenas emails válidos com MX válidos
Adicionar conta de e-mail - Postfix com domínios virtuais no MySQL
Remover caixas postais do Cyrus IMAP
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Iinstalar o Scanner Kodak i940 no Linux Mint 19/20? (4)
Pastas da raiz foram para a área de trabalho [RESOLVIDO] (11)
Será que eu deveria apreender C/C++ para desenvolver para Linux? (4)