VPF::Отправка письма - Форум программистов

SATYR

Дата 2.9.2006, 11:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 24.5.2005

Репутация: нет
Всего: нет

Всем доброго времени суток.

Написал код

Код


my $server = "smtp.list.ru";  
my $mail_to = '[email protected]'; 
my $message = "Тестовое сообщение"
my $user='[email protected]';

my $smtp = Net::SMTP->new( $server );
  $smtp->mail('[email protected]' );
  $smtp->to( $mail_to );
  $smtp->data();
  $smtp->datasend("To: $mail_to\n");
  $smtp->datasend("\n");
  $smtp->datasend("$message\n");
  $smtp->dataend();
  $smtp->quit;

по образу и подобию примера многократно приводимого на форуме.
Все выполняется ок, соединение создается, но письма в ящике так я и не видел.
Подскажите в чем ошибка?

Nab

Дата 2.9.2006, 18:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 582
Регистрация: 25.3.2006
Где: Kiev

Репутация: 8
Всего: 37

Было бы хорошо проанализировать ответ сервера, думается мне что у них авторизация нужна и при отправке...

Там кстати есть параметр Debug в конструкторе. Может он позволит увидеть в чем затык...

--------------------

Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community
FREESCO in Ukraine

sharq

Дата 4.9.2006, 11:13 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 2
Всего: 28

SATYR, может у тебя настроен какой-нибудь спам-фильтр?
Попробуй создать письмо с полями To, From и Subject.
И смотри внимательно на текст созданного письма!

smile

--------------------

[color=gray]There's More Than One Way To Do It[/color]

nitr

Дата 4.9.2006, 14:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 12
Всего: 84

Код


#!perl -w
use strict;
use Net::SMTP;

my $from = '[email protected]';
my $to = '[email protected]';
my $server = 'smtp.mail.ru';

my $content = "Subject: test-subject\n Test Message!";
my $smtp = Net::SMTP->new($server, 
              Hello => 'testtttt',
              Timeout => 10, 
              Debug => 1
             ) or die "Error :(";
$smtp->mail($from);
$smtp->to($to);
$smtp->data;
$smtp->datasend('To: '.$to."\n");
$smtp->datasend($content);
$smtp->dataend;
$smtp->quit;

Добавлено @ 14:03
SATYR, и на сколько помню... Nab прав smile

Добавлено @ 14:04
а ещё прикольная штука на данном форуме ;)
тут

--------------------

I love ArchLinux

SATYR

Дата 11.9.2006, 12:21 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 24.5.2005

Репутация: нет
Всего: нет

Nab, Nitr за дебаг спасибо smile

штука пользительная висьма smile

. Проблема самоустранилась smile

. С использованием To, From и прочего написал "боевую" процедуру smile

покачто работает исправно smile

посмотрим что будет дальше smile

...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »