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.694 ]
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";
Script para fazer buscas no arquivo de logs do squid
Descobrir operadora de celular
IPloc - Informações e localização de um determinado endereço IP
Como gerar qualquer emoji ou símbolo unicode a partir do seu teclado
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Configurando o Conky para iniciar corretamente no sistema
3 configurações básicas que podem melhorar muito a sua edição pelo editor nano
Como colorir os logs do terminal com ccze
Instalação Microsoft Edge no Linux Mint 22
Como configurar posicionamento e movimento de janelas no Lubuntu (Openbox) com atalhos de teclado
firefox nao guarda meus logins nos sites (1)
Instalar debian testing (13) "por cima" do debian 12 (2)
Erro de segmentação «Segmentation fault (core dumped)» ao retornar obj... (1)