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.613 ]
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
IPloc - Informações e localização de um determinado endereço IP
Automatizando o envio de arquivo p/ o FTP !
VimeoTheSapo -Baixe videos do Vimeo e do sapo
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
Quero saber sobre os melhores aplicativos de office para usar em 2024 ... (4)
Problemas com o PulseAudio no lubuntu (8)
Som e sistema de janelas não obedecem (1)
Toda vez que tento atualizar o clamav me deparo com erros ao atualizar... (1)