mimemail.pl
Publicado por Fábio Berbert de Paula 13/11/2002
[ Hits: 4.399 ]
Homepage: https://www.instagram.com/alexabolada/
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.
#!/usr/bin/perl # ########################################################### # # 27/06/2002 # Por Fábio Berbert de Paula <fabio@vivaolinux.com.br> # 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 <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" ); open(MAIL,"| /usr/lib/sendmail -t"); $top->print(\*MAIL); close(MAIL);
Validando lista de e-mail no MX
Apagar MAILER-DAEMON da fila de email
Adicionar conta de e-mail - Postfix com domínios virtuais no MySQL
Retornar somente e-mails válidos
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
ASRock H310CM-HG4 vs Linux [RESOLVIDO] (18)
Microfone do meu headset não é recinhecido. Meu notebook é um Acer Asp... (12)