\dev\null: straipsnis apie masinį el. laiškų siuntimą.

2017-10-04T11:09:31Z

straipsnis apie masinį el. laiškų siuntimą.

Naujas puslapis

Šis straipsnis apie masinį el. laiškų siuntimą bei scriptai skirti tiktai pažintiniams ir edukaciniams tikslams. Mes neatsakome už kitokį (blogą ar gerą) straipsnio panaudojimą.

Reikalavimai sistemai:
* [[MySQL]] 5.x
* [[PHP]] 5.x
* [[PHP]] moduliai, '''pear install Mail Mail_Mime'''
* Sistemos prieiga su shell bash palaikymu
* Veikianti [[smtp]] serverio prieiga (tinka bet koks ISP paštas)

MySQL duombazės lentelės struktūra:
<syntaxhighlight lang="sql">
CREATE TABLE IF NOT EXISTS mailai (
id INT(11) NOT NULL AUTO_INCREMENT,
mail TEXT DEFAULT NULL,
status VARCHAR(200) DEFAULT NULL,
country VARCHAR(2) DEFAULT NULL,
PRIMARY KEY (id)
) ENGINE=InnoDB
</syntaxhighlight>

El. Pašto adresams naudojamas šis scriptas, kuris paima iš dokumento '''adresai.txt''', eile surašytus adresus ir importuoja į MySQL lentelę.
<syntaxhighlight lang="bash">
#!/bin/bash
inputfile="adresai.txt"
country='lt';
cat $inputfile | while read mails; do
echo "INSERT INTO mailai (mail, country) VALUES ('$mails','$country');"
done | mysql mailas;
</syntaxhighlight>

Žemiau esantis scriptas skirtas siūsti el. laiškus, gavėjams iš duombazės lentelės.
<syntaxhighlight lang="php">

<?php
//error_reporting(E_ALL ^ E_NOTICE ^ E_DEPRECATED ^ E_STRICT);
set_include_path("." . PATH_SEPARATOR . ($UserDir = dirname($_SERVER['DOCUMENT_ROOT'])) . "/pear/php" . PATH_SEPARATOR . get_include_path());
require_once "Mail.php";
require_once "config.php";

$query = "select id, mail, status from mailai where country = 'lt'";
$result = mysql_query($query, $con);
$emails = array();
while($row=mysql_fetch_assoc($result))
{
$emails[]=$row['mail'];
}
$count = file_get_contents("count.txt");
for($i=$count;$i<count($emails);$i++)
{
$to = $emails[$i];
$message = file_get_contents("mailas.html"); // this will get the HTML sample template sample.html
$headers = array ('From' => $from, 'To' => $to, 'Subject' => $subject, 'MIME-Version' => 1, 'Content-type' => 'text/html;charset=UTF-8', 'Reply-To' => $from);
$smtp = Mail::factory('smtp', array ('host' => $host, 'port' => '25', 'auth' => true, 'username' => $username, 'password' => $password));
$mail = $smtp->send($to, $headers, $message);
if (PEAR::isError($mail)) {
$file = fopen("notmailsentlist.txt","a+");
fwrite($file, $to.",\r\n");
fclose($file);
} else {
$file = fopen("mailsentlist.txt","a+");
fwrite($file, $to.",\r\n");
fclose($file);
}
if(($i-$count)>=100) // this will send 100 mails from database per execution
{
$filec = fopen("count.txt",'w'); // store current count to count.txt
fwrite($filec, $i);
fclose($filec);
break;
}
}//for end
$filec = fopen("count.txt",'w'); // store fine count to count.txt this will be used as a start point of next execution
fwrite($filec, $i);
fclose($filec);
?>
</syntaxhighlight>
Pastarajį scriptą reikią užmauti ant crontab, kad pasileistų kas 5-10min. Scriptas savo statusą bei išsiųstų laiškų kiekį išsaugo, naujai paleistas pratesia darbą.
Taip pat susikurkite '''mailas.html''' failą kuriame parašysite norimo siųsti laiško turinį. Nepamirškite pakoreguoti apačioje esančio nustatymų failo '''config.php'''
<syntaxhighlight lang="php">
<?php
$con = mysql_connect("localhost","root","passwordas"); // replace dbuser, dbpass with your db user and password
mysql_select_db("mailas", $con); // replace dbname with your database name
// smtp mailo setupas
$host = "mail.000.lt";
$username = "000@000.lt";
$password = "000";
$subject = 'I just noticed you on Facebook group'; // Kokia laiško tema
$from = "000@000.lt";
?>
</syntaxhighlight>
= Scrapinam mailus =
Mailams išgauti naudojami įvairūs triukai ir t.t. Čia aprašytas keletas.

== Adresų išgavimas iš svetainės ==
wget -q -r -l 5 -O - www.adresas.lt | grep -E -o "\b[a-zA-Z0-9.-]+@[a-zA-Z0-9.-]+\.[a-zA-Z0-9.-]+\b"
== Išgavimas iš teksto ar kito materialo ==
grep -E -o "\b[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,6}\b" materialas.txt | sort | uniq > pasto_adresai.txt

[[Category:Mail]]
[[Category:Scripts]]

Mail siuntimo sistema - Versijų istorija

\dev\null: straipsnis apie masinį el. laiškų siuntimą.