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: 11.119 ]

Download bkp.mailer.pl




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.

  



Esconder código-fonte

#!/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 protected]'; # 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";

Scripts recomendados

Getter - Gerencia downloads

Postando mensagem no Facebook com Perl

Script para fazer buscas no arquivo de logs do squid

Perl Check Port - Entenda melhor os sockets

Descobrir operadora de celular


  

Comentários
[1] Comentário enviado por fabiocs em 02/01/2014 - 10:38h

Vc está usando qual aplicativo para o envio de email?
Consigo usar o smtp do Gmail, por exemplo?

[2] Comentário enviado por removido em 02/01/2014 - 21:58h

foi exatamente o gmail que usei
server: smtp.gmail.com
porta: 587

[3] Comentário enviado por fabregas em 09/01/2014 - 16:18h

Tem como fazer isso em php? Essa parte de autenticação eu sei que tem que fazer, mas em php eu tentei fazer 1 vez mas não consegui. Se quiser eu posso lhe mostrar ate onde eu fiz.

[4] Comentário enviado por pherde em 08/03/2014 - 23:27h

Está ocorrendo esse erro:

invalid SSL_version specified at /usr/lib/perl5/site_perl/5.16.2/IO/Socket/SSL.pm line 368.

como arrumo essa versão do SSl ???


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts