Jump to content
Theb3st

Cumpar Soft de trimis maile Privat

Recommended Posts

Posted

In afara limbajului, are dreptate in legatura cu ams, ii sunt banate headerele mostly, deci pentru o campanie de marketing nu e de folosit. Incearca mailchimp, e browser based, e ieftin, nu ai treaba.

  • Active Members
Posted

https://github.com/PHPMailer/PHPMailer

sau

#!/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 "\t[!] 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 @destinatario);

# DADOS A SEREM ENVIADOS #

$smtp->data();

$smtp->datasend("To: $destino\n");

$smtp->datasend("From: Apelido\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\t\t\t[+] Enviado para: \t\t\t\ $destino\n";

$smtp->dataend();

}

$smtp->quit;

print "\t[!] Fim\n";

Posted
https://github.com/PHPMailer/PHPMailer

sau

#!/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 "\t[!] 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 @destinatario);

# DADOS A SEREM ENVIADOS #

$smtp->data();

$smtp->datasend("To: $destino\n");

$smtp->datasend("From: Apelido\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\t\t\t[+] Enviado para: \t\t\t\ $destino\n";

$smtp->dataend();

}

$smtp->quit;

print "\t[!] Fim\n";

Bareword found where operator expected at s line 47, near "<span class="highlight">EMAIL"

(Missing operator before EMAIL?)

Having no space between pattern and following word is deprecated at s line 48.

Bareword found where operator expected at s line 48, near "]o"

(Missing operator before o?)

syntax error at s line 47, near "<span class="highlight">EMAIL"

Unmatched right square bracket at s line 48, at end of line

(Might be a runaway multi-line // string starting on line 47)

Can't find string terminator "span" anywhere before EOF at s line 48.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
×
  • Create New...