dix
Зарегистрирован: 11.04.2005 Сообщения: 5
|
Добавлено: Пн Июл 18 2005 16:05 Заголовок сообщения: |
|
|
Поссмотри может пригодится (у меня работает)
Код: | sub to_mail($$$$){
my ($to,$from,$subject,$message) = @_;
my $server = "1.1.1.128"; # пишешь свой почтовый сервак
my $smtp = new Net::SMTP("$server",Hello => "$server") or die print("$to Невозможно отправить сообщение: ");
$smtp->mail("$from");
$smtp->to("$to");
$smtp->data();
$smtp->datasend("To:$to\n");
$smtp->datasend("From:$from\n");
$smtp->datasend("Subject:$subject\n");
$smtp->datasend("Content-Type:text/html;charset=windows-1251\n");
$smtp->datasend("\n");
$smtp->datasend("$message\n");
$smtp->dataend();
$smtp->quit();
}
|
|
|