Envia e-mail com anexo
Publicado por Fábio Berbert de Paula 13/11/2002
[ Hits: 10.682 ]
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
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
Nenhum comentário foi encontrado.
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Criando uma VPC na AWS via CLI
Multifuncional HP imprime mas não digitaliza
Dica básica para escrever um Artigo.
Como Exibir Imagens Aleatórias no Neofetch para Personalizar seu Terminal
UUID da partição efi mudou, multiboot já era...e agora? (0)