как послать мэйл?

WD` · 24.09.2002, 12:14

где-то по поику нашел как посылать через 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";