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.570 ]

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@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";

Scripts recomendados

Gerir VirtualHosts do Apache

HAT Googler

Sarg Semanal

Pagerank Checker

processar Lynx.pl


  

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

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts