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.292 ]
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
Burlando o "Protetor de links" INVERTIDO para download grátis
Postando mensagem no Facebook com Perl
Iniciando desenvolvimento web ágil com Perl (Mojolicious)
Agora temos uma assistente virtual no fórum!!! (247)
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
iso de sistema 32 bit em atividade (17)
Reset do linux sem perder dual boot (4)
erro ao clonar repo github (10)
Impressora Canon Ip 1800 (Drivers) 64 bit (3)
Como transfiro os pokemons do fire red para o emulador mupen64? (1)