URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID9
Нить номер: 6265
[ Назад ]
Исходное сообщение
"отправка почты"
Отправлено Satell , 15-Мрт-07 20:06 
почта не отправляется, ни через sendmail, ни через Net::SMTP на mail.ru, в чём проблема?
мне нужно чтобы письмо выглядело, как будто отправлено из почтовой программы

#!/usr/bin/perl
open (SENDMAIL, "|/usr/sbin/sendmail -t") or die "sendmail not ready";
print SENDMAIL "From: John Doe <joe\@mail.ru>\n";
print SENDMAIL "To: Frank Smith <frank\@mail.ru\n";
print SENDMAIL "Reply-To: Frank Smith <frank\@mail.ru>\n";
print SENDMAIL "Subject: Test.\n\n";
print SENDMAIL "It's just test!!!";
close (SENDMAIL) or warn "sendmail didn't close nicely";

#!/usr/bin/perl
use Net::SMTP;
$smtp = Net::SMTP->new('smtp.mail.ru'); # Ваш сервер!
$smtp->mail('joe@mail.ru');
$smtp->to('frank@mail.ru');
$smtp->data();
$smtp->datasend("To: frank@mail.run");
$smtp->datasend("n");
$smtp->datasend("Hello ADMIN!!!!!! :-)n");
$smtp->dataend();
$smtp->quit;

Содержание
Сообщения в этом обсуждении
"отправка почты"
Отправлено anonymous , 15-Мрт-07 21:35 
>почта не отправляется, ни через sendmail, ни через Net::SMTP на mail.ru, в
>чём проблема?
>мне нужно чтобы письмо выглядело, как будто отправлено из почтовой программы
>
>#!/usr/bin/perl
>open (SENDMAIL, "|/usr/sbin/sendmail -t") or die "sendmail not ready";
>print SENDMAIL "From: John Doe <joe\@mail.ru>\n";
>print SENDMAIL "To: Frank Smith <frank\@mail.ru\n";
>print SENDMAIL "Reply-To: Frank Smith <frank\@mail.ru>\n";
>print SENDMAIL "Subject: Test.\n\n";
>print SENDMAIL "It's just test!!!";
>close (SENDMAIL) or warn "sendmail didn't close nicely";
>
>#!/usr/bin/perl
>use Net::SMTP;
>$smtp = Net::SMTP->new('smtp.mail.ru'); # Ваш сервер!
>$smtp->mail('joe@mail.ru');
>$smtp->to('frank@mail.ru');
>$smtp->data();
>$smtp->datasend("To: frank@mail.run");
>$smtp->datasend("n");
>$smtp->datasend("Hello ADMIN!!!!!! :-)n");
>$smtp->dataend();
>$smtp->quit;

Пройди все эти шаги c помощью telnet smtp.mail.ru 25 .Работает?


"отправка почты"
Отправлено anonymous , 15-Мрт-07 21:40 
>почта не отправляется, ни через sendmail, ни через Net::SMTP на mail.ru, в
>чём проблема?
>мне нужно чтобы письмо выглядело, как будто отправлено из почтовой программы
>
>#!/usr/bin/perl
>open (SENDMAIL, "|/usr/sbin/sendmail -t") or die "sendmail not ready";
>print SENDMAIL "From: John Doe <joe\@mail.ru>\n";
>print SENDMAIL "To: Frank Smith <frank\@mail.ru\n";
>print SENDMAIL "Reply-To: Frank Smith <frank\@mail.ru>\n";
>print SENDMAIL "Subject: Test.\n\n";
>print SENDMAIL "It's just test!!!";
>close (SENDMAIL) or warn "sendmail didn't close nicely";
>
>#!/usr/bin/perl
>use Net::SMTP;
>$smtp = Net::SMTP->new('smtp.mail.ru'); # Ваш сервер!
>$smtp->mail('joe@mail.ru');
>$smtp->to('frank@mail.ru');
>$smtp->data();
>$smtp->datasend("To: frank@mail.run");
>$smtp->datasend("n");
>$smtp->datasend("Hello ADMIN!!!!!! :-)n");
>$smtp->dataend();
>$smtp->quit;

У меня нет , потому что надо использовать порт 2525, т.е telnet smtp.mail.ru 2525