Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для micronegor

Новый участник


Сообщения: 14
Благодарности: 0

Профиль | Отправить PM | Цитировать


lcat
вот такой скриптик на perl позволит отправлять через Ваш релей текстовые письма, что собственно и требовалось

Код: Выделить весь код
#!/usr/bin/perl -w
use IO::Socket;

# Ваш релей (скорее всего я угадал)
my $mx_ = 'smtp.apex.dp.ua';
my $port_ = '25';

# отправитель
my $from_ = 'lcat@email.dp.ua';

# получатель (в данном случае письмо самому себе)
my $to_ = 'lcat@email.dp.ua';
my $mail_body_ = 'Subject: ';

# тема письма
$mail_body_ .= 'this is the topic';
$mail_body_ .= "\n";

# ниже укажите текст письма
$mail_body_ .= 'this is the boby text...';

my $remote_;

$remote_ = IO::Socket::INET->new( Proto => "tcp" , PeerAddr => $mx_ , PeerPort => $port_ ) || die "Can't connect to host '$mx_' to port '$port_'.\n$!" ;
$remote_->autoflush(1);

print $remote_ "helo $mx_\nmail from:<$from_>\nrcpt to:<$to_>\ndata\n$mail_body_\n.\nquit\n";

while ( <$remote_> ) { print; };

close ( $remote_ );
в первой строке скрипта должен быть правильно указан путь к перлу, а файл должен быть исполняемым
надеюсь пригодится

Отправлено: 15:02, 29-09-2005 | #23