где-то по поику нашел как посылать через NET::smtp, но не получается, даже хелп прочитал, не работет и все
памагите плз
Код:
#!/usr/bin/perl
use Net::SMTP;
# Сюда ставишь свой smtp сервер
$smtp_server = 'smtp.mail.ru';
# Сюда ставишь свое мыло
$from_email = 'adress@mail.ru';
# Кому мы шлем мыло
$to = 'adress2@mail.ru';
$from = 'Имя-Фамилия';
$theme = 'Тема сообщения';
$massage = 'Текст сообщения';
print "Content-type: text/html\n\n";
print "<html><body>\n";
print "Sending message<br>\n";
$smtp = Net::SMTP->new($smtp_server,Hello => $smtp_server,Timeout => 120,Debug => 1) ||die print "can't sendmail";
$smtp->mail($from_email);
$smtp->to("$to");
$smtp->data();
$smtp->datasend("To: $to\n");
$smtp->datasend("From: $from\n");
$smtp->datasend("Theme: $theme\n");
$smtp->datasend("\n");
$smtp->datasend("---------------------\n");
$smtp->datasend("\n");
$smtp->datasend("$massage\n");
$smtp->datasend("\n");
$smtp->dataend();
$smtp->quit;
print "<BR> Message sended";