послать письмо (что-то не работает....)

[Voice]

Нужно программно послать письмо на указанный адрес. Вот пробую и так:

#!/usr/bin/perl -w

use Mail::Internet;

my $sender = "from_mail\@gmail";
my $recipient = "to_mail\@meta.ua";
my $subject = "Some subject...";

my $head = Mail::Header->new();
$head->add("From" => $sender);
$head->add("To" => $recipient);
$head->add("Subject" => $subject);

my $body = "Message body here...";

my $mail = Mail::Internet->new("Header" => $head,
"Body" => [$body],
"Modify" => 1);

print($mail->send("sendmail"));

и сяк:

Код: Выделить всё

#!/usr/bin/php

<?php

$to = "to_mail@meta.ua";
$subject = "Some subject...";
$body = "Text......";


if(mail($to, $subject, $body)) {
    echo("Mail was sended successful.\n");
} else {
    echo("Failed to send mail.\n");
}

?>

И никак не работает, хотя примеры учебные и взяты из книг/статей.
Скриптик на ПХП говорит что все хорошо, письмо отправлено, но на ящик оно не приходит.
Что я не так делаю? Подскажите, кто знает.

[v04bvs]

Скорее всего на машине не правильно настроен MTA.

[Voice]

Тоесть? Мне нужно настроить например sendmail у себя на машине?

[Shade]

Может быть, попробовать Net::SMTP?

[v04bvs]

Тоесть? Мне нужно настроить например sendmail у себя на машине?

Запустите mutt, нажмите m, напишите письмо (на тот же адрес), отправьте его, и проверьте - пришло или нет. Если не пришло, значит да, надо настроить например sendmail.

[Shade]

Повторюсь, Net::SMTP -- то, что спасет отца русской демократии ;-)
Это простенький клиент SMTP протокола. Отправляет письма через любой доступный SMTP-сервер.
man 3 Net::SMTP

[Voice]

Спасибо, Shade.
Но есть малеенькая проблемка. Какой сервер иму дать, а то при на строке

Код: Выделить всё

my $smtp = Net::SMTP->new($server);

оно говорит что не может подключится.
Я пробовал mail.google.com.

[DaemonTux]

Спасибо, Shade.
Но есть малеенькая проблемка. Какой сервер иму дать, а то при на строке

Код: Выделить всё

my $smtp = Net::SMTP->new($server);

оно говорит что не может подключится.
Я пробовал mail.google.com.

А если вот этот адрес попробывать

Код: Выделить всё

smtp.gmail.com

[Shade]

Естественно, нужно указывать SMTP-сервер. Кроме того, гугловский наверняка требует имя пользователя и пароль. Поэтому прежде чем отправлять, нужно будет вызвать auth().
Я отправлял через smtp.yandex.ru, так там еще требовали, чтобы адрес отправителя, т.е. "From: " в заголовке письма (см. RFC 2821), был их же, т.е. @yandex.ru / @ya.ru и т.д.

P.S.
А писал я вообще на питоне. Там есть аналогичный модуль.
Скрипт:

[Voice]

Shade, спасибо большое за исходник.
Теперь все понятно.