Архив форумов ЦИТФорума

[pegas]

Написал простенький скрипт для отправки почтового сообщения

#!/usr/bin/perl

use strict;
use warnings;
use Net::SMTP;

my $server = "mail.ss.com.ua";
my $from = "1212\@ss.com.ua";
my $to = "4343\@bigmir.net";
my $Subject = "Warning!!!";
my $smtp = Net::SMTP->new("mail.ss.com.ua",
Hello => "mail.ss.com.ua",) or die ( "do not send file : $!" );

$smtp->mail("$from");
$smtp->to("$to");
$smtp->data();
$smtp->datasend("From: $from\n");
$smtp->datasend("To: $to\n");
$smtp->datasend();
$smtp->datasend("Subject: $Subject\n\n");
$smtp->datasend(" hghghghghghghghghghghghghg \n");
$smtp->dataend();
$smtp->quit;

так вот когда в строке вписываю адрес локального почтового ящика
сообщения доходят нормально
my $to = "user\@ss.com.ua";
когда вписываю глобальные почтовые ящики например:
my $to = "543345\@rambler.ru";
то после отработки скрипта сообщения не доходят.
Хотелось бы узнать причину(в логах при отправке на удалённые рабочие ящики ничего не пишет, почта работает нормально т к почтовыми клиентами типа THE BAT, OUTLOOK на удалённые ящики всё доставляется, настройка SMTP сервера в програме такая же как и в THE BAT, OUTLOOK)

[GuestS]

Я не программер, а всеволишь админ - но ваш случай похожь на классический закрытый "RELAY".