Enviado em 19/06/2015 - 15:37h
Boa tarde, tenho esse código em perl que envia emails de uma lista com assunto e corpo, preciso de um que faça isso mas que seja possível anexar algum arquivo da minha escola, alguém pode me ajudar?#!/usr/local/bin/perl $ARGC=@ARGV; if ($ARGC !=4) { printf "Você digitou de uma forma errada. Siga as instruções.\n"; printf "INSTRUÇÕES - UND3F1N3D\n"; printf "perl $0 <mailist> <remetente\@mail.com> <assunto> <corpo.html>\n"; printf "Exemplo: perl $0 lista01.txt peu\@msn.com Ola index.html\n"; exit(1); } $mailtype = "content-type: text/html"; $sendmail = '/usr/sbin/sendmail'; $sender = $ARGV[1]; $subject = $ARGV[2]; $efile = $ARGV[0]; $emar = $ARGV[0]; open(FOO, $ARGV[3]); @foo = <FOO>; $corpo = join("\n", @foo); open (BANDFIT, "$emar") || die "Can't Open $emar"; $cont=0; while(<BANDFIT>) { ($ID,$options) = split(/\|/,$_); chop($options); foreach ($ID) { $recipient = $ID; open (SENDMAIL, "| $sendmail -t"); print SENDMAIL "$mailtype\n"; print SENDMAIL "Subject: $subject\n"; print SENDMAIL "From: $sender\n"; print SENDMAIL "To: $recipient\n\n"; print SENDMAIL "$corpo\n\n"; close (SENDMAIL); $cont=$cont+1; printf "$cont Enviado para $recipient"; } } close(BANDFIT);
Enviado em 30/06/2015 - 10:20h
Tente esse módulo:Enviado em 14/10/2015 - 18:31h
perl -MCPAN -e 'install MIME::Lite'
cpan MIME::Lite
use MIME::Lite # message my $msg = MIME::Lite->new( From =>'me@email.com', To =>'you@email.com', Subject =>'Hello World', Type =>'TEXT', Data =>"Mandando esta imagem pra você...." ); # attach $msg->attach( Type =>'image/jpg', Path =>'minha_imagem.jpg', Filename =>'arquivo.jpg' ); # sending $msg->send;
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
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Falta pacotes de suporte ao sistema de arquivos (Gerenciador de discos... (2)
Enzo quer programar mas não faz código pra não bugar (12)
Erro de Montagem SSD Nvme (12)
WebScrapping através de screenshot devido a bloqueios de Shadow DOM (1)