VPF::Кто пользовался libwww-perl или MAIL (PERL)?

Обломов

Дата 30.5.2003, 13:15 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Как отправить e-mail без использования внешних почтовых программ?
Привидите пожалуйста рабочий пример. (какие модули у вас установлены?)
P.S. А письмо с аттачментом?

acp

Дата 30.5.2003, 13:29 (ссылка)

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

Загрузка ...

Опытный

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

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

Я такого не делал, хватало обычного sendmail'а.
Посмотри Net::SMTP...

Это сообщение отредактировал(а) acp - 30.5.2003, 13:30

Обломов

Дата 30.5.2003, 14:26 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Если интересно, то такое действительно можно сделать с помощю Net::SMTP
http://www.kuban.ru/cgi-bin/forum/forum28....page=1&ask=7423

acp

Дата 30.5.2003, 14:46 (ссылка)

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

Загрузка ...

Опытный

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

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

1. Почему этот форум не захотел под Оперой работать?
2. Ну-да, ну-да... Всё это конечно правильно, я даже как-то догадывался что с помошью SMTP протокола можно почту отправлять

Вот только недаром я упомянул посмотреть Net::SMTP, а именно для него сделать perldoc. Тот пример, который приведён на том форуме взят именно из встроенной документации к этому модулю

Это сообщение отредактировал(а) acp - 30.5.2003, 14:48

HalkaR

Дата 30.5.2003, 20:34 (ссылка)

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

Загрузка ...

Пуфыстый назгул

Профиль
Группа: Экс. модератор
Сообщений: 2132
Регистрация: 8.12.2002
Где: В Москве

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

Корче говоря я пользовался модулем MAil::Sendmail. Вот рабочий пример

Код

use Mail::Sendmail;


  %mail = ( To      => '[email protected]',
            From    => '[email protected]',
            Subject => 'Subj',
     'Content-Type' => 'text/plain;  charset=win1251',
     'Content-Transfer-Encoding' => '8bit',
     Message => 'Ура! Работает!');


  $mail{Smtp} = 'smtp.mail.ru';
  sendmail(%mail) or die $Mail::Sendmail::error;



  print "OK. Log says:\n", $Mail::Sendmail::log;

Можно и с аттачем.

Код

use MIME::QuotedPrint;
use MIME::Base64;
use Mail::Sendmail;

$message = qq[<html><body><h1>Вот то, что просила</h1><img src="pbar.gif><img src="erorr.gif></body></html>];
$message = encoder($message,"win","koi"),
$boundary = "====" . time() . "====";

  %mail = ( To      => '[email protected]',
            From    => '"Bill Gates" <[email protected]>',
            Subject => 'Subj',
     'Content-Type' => "multipart/mixed; boundary=\"$boundary\" charset=koi8-r",
     'Content-Transfer-Encoding' => '8bit',
     'X-Mailer' => 'Microsoft Outlook Express 6.00.2600.0000',
     smtp    => 'your smtp server',
     'X-MSMail-Priority' => 'High');


$file = 'send.pl'; #Здесь пишешь название файла, которы отправляешь.
$mail{body} = encode_base64(<F>);
close F;

$boundary = '--'.$boundary;
$mail{body} = <<END_OF_BODY;
$boundary
Content-Type: text/html; charset="koi8-r"
Content-Transfer-Encoding: 8bit

$message
$boundary
Content-Type: application/octet-stream; name="$file"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="$file"

$mail{body}
$boundary--\n
END_OF_BODY


  sendmail(%mail) or die $Mail::Sendmail::error;



  print "OK. Log says:\n", $Mail::Sendmail::log;

Шли чо хочешь куда хочешь.

Это сообщение отредактировал(а) HalkaR - 30.5.2003, 21:03

zibsev

Дата 1.7.2003, 20:57 (ссылка)

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

Загрузка ...

Новичок

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

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

Я вообще ничего не понял. Все-же как с помощью PERL отправить письмо? Кусок кода, дайте.

HalkaR

Дата 1.7.2003, 21:24 (ссылка)

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

Загрузка ...

Пуфыстый назгул

Профиль
Группа: Экс. модератор
Сообщений: 2132
Регистрация: 8.12.2002
Где: В Москве

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

Первй способ - с помощью модуля. Через smtp сервер.
С помощью программы sendmail. Она есть тока под *nix.

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