SMTP Mass Mail - Enviando e-mails em massa para vários endereços a partir de um servidor SMTP
Publicado por Perfil removido (última atualização em 02/01/2014)
[ Hits: 12.583 ]
O script é muito simples, você usa um servidor SMTP, uma lista TXT com vários endereços, edita o conteúdo da mensagem à sua maneira, e o script envia a mensagem através do servidor SMTP configurado, com sua autenticação, pode ser um Gmail, Hotmail, UOL etc...
A lista com os endereços a ser enviado o e-mail deve estar separada linha por linha.
#!/usr/bin/perl use Net::SMTP::TLS; # CONFIGURAÇÕES BÁSICAS # # Autenticação no servidor SMTP my $servidor=""; my $porta=""; my $user=''; my $pass=''; #Dados do sender #my $destino='email@servidor.com'; # caso não queira usar uma lista my $assunto=""; my $email=''; print <<print; ============================================================================================= .oooooo..o ooo ooooo ooooooooooooo ooooooooo. +-----------------------+ d8P' `Y8 `88. .888' 8' 888 `8 `888 `Y88. | By KoubackTr / 2014 | Y88bo. 888b d'888 888 888 .d88' | | `"Y8888o. 8 Y88. .P 888 888 888ooo88P' | koubacktr\@gmail.com | `"Y88b 8 `888' 888 888 888 +-----------------------+ oo .d8P 8 Y 888 888 888 8""88888P' o8o o888o o888o o888o ooo ooooo .o ooo ooooo .o o8o oooo `88. .888' .d88 `88. .888' .d88 `"' `888 888b d'888 .d'888 .oooo.o .oooo.o 888b d'888 .d'888 oooo 888 8 Y88. .P 888 .d' 888 d88( "8 d88( "8 8 Y88. .P 888 .d' 888 `888 888 8 `888' 888 88ooo888oo `"Y88b. `"Y88b. 8888888 8 `888' 888 88ooo888oo 888 888 8 Y 888 888 o. )88b o. )88b 8 Y 888 888 888 888 o8o o888o o888o 8""888P' 8""888P' o8o o888o o888o o888o o888o ============================================================================================= print # ARQUIVO COM OS ENDEREÇOS DE EMAIL # print "[!] Você precisa informar o arquivo de lista com os endereços\n Arquivo: "; $arquivo = <stdin>; open(EMAIL,"< $arquivo") or die "FILE NOT FOUND!\n"; chomp(my @destino = <EMAIL>); #Conexão com o servidor my $smtp = new Net::SMTP::TLS("$servidor", Port => $porta, User => "$user", Password=> "$pass", Timeout => 5) || die "[!] Erro ao se conectar ou autenticar com o servidor: $servidor\n"; # PEGANDO ENDEREÇOS NO ARQUIVO INFORMADO # foreach my $destino (sort @destino){ $smtp->mail("$email"); my @destinatario = ("$destino"); $smtp->recipient(@destinatario); # DADOS A SEREM ENVIADOS # $smtp->data(); $smtp->datasend("To: $destino\n"); $smtp->datasend("From: Puliça da Passoca Federal\n"); $smtp->datasend("Content-Type: text/html \n"); $smtp->datasend("Subject: $assunto"); $smtp->datasend("\n"); $smtp->datasend(" <!-- CONTEUDO DA MENSAGEM --> <br> <center> <font size='8'> <b>TESTE DE EMAIL EM PERL</b> </font> </center> "); $smtp->datasend("\n"); print "\t[+] Enviado para: \t\t\t\ $destino\n"; $smtp->dataend(); } $smtp->quit; print "[!] Fim\n";
API do Bing para traduzir textos
Perl Check Port - Entenda melhor os sockets
Burlando o "Protetor de links" INVERTIDO para download grátis
Gmail::SendMail - Enviando emails usando gmail
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
Como renomear arquivos de letras maiúsculas para minúsculas
Imprimindo no formato livreto no Linux
Vim - incrementando números em substituição
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Não to conseguindo resolver este problemas ao instalar o playonelinux (1)
Excluir banco de dados no xampp (1)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta