Модераторы: korob2001, ginnie

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Отправим-ка письмецо :), Посылаем всех и вся...))) 
V
    Опции темы
_eXpLoReR_
  Дата 5.9.2004, 11:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Всем привет!

Перцы, мне очень срочно надо! Помогите! Мне надо, чтобы какой-нибудь текст можно было отправлять на мыло! Через SMTP!!! Обьясните принцип и напишите, пожалуйста, самую простейшую программку!!!! HELPPPP MMEEE, PLSSSS!!!

sample.gif thumbs-up.gif thumbs-up.gif thumbs-up.gif thumbs-up.gif


PM MAIL   Вверх
korob2001
Дата 5.9.2004, 13:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61
perldoc Net::SMTP
Там и пример есть.


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
_eXpLoReR_
Дата 5.9.2004, 13:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Спасибо, а можно, чтобы не использовать use Mail::Sendmail; ?

Добавлено @ 13:54
И не могу найти то, что ты сказал. Дай, пожалуйста, точную ссылку, а если не сложно, приведи пример здесь... очень нужно!!!
Добавлено @ 13:55
Заранее багодарен! bored.gif rolleyes.gif
PM MAIL   Вверх
korob2001
Дата 5.9.2004, 15:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61
Цитата

И не могу найти то, что ты сказал. Дай, пожалуйста, точную ссылку, а если не сложно, приведи пример здесь... очень нужно!!!

В командной строке введи следующую команду:
C:\>perldoc Net::SMTP

Если модуль установлен, значит получишь документацию к модулю Net::SMTP.
Если в ответ получишь что-то типа No documentation found for "Net::SMTP", то это говорит о том, что данного модуля у тебя нет. Тогда нужно его установить, а затем повторить комманду указанную выше.

Это сообщение отредактировал(а) korob2001 - 5.9.2004, 15:05


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
_eXpLoReR_
Дата 5.9.2004, 17:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Ты так и не ответил на вопорос:

... так а можно не использовать модуль? Как-нибудь отправить письмо без него?
Добавлено @ 17:53
А за команду спасибо. Поробую! smile.gif
PM MAIL   Вверх
ElectricalStorm
Дата 5.9.2004, 18:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 9
лучше через сендмеил а то вдруг к них smtp сервака нет ...


--------------------
Нужно знать инструмент, которым пользуешься
PM MAIL   Вверх
_eXpLoReR_
Дата 5.9.2004, 18:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Блинн!! Народ! Ну пожалуйста, вставьте мне пример готового крипта, который будет просто отправлять письма на указанны мэйл!!!! Я вас умоляю!!!!!

sample.gif sample.gif sample.gif sample.gif sample.gif sample.gif sample.gif
Добавлено @ 18:23
Извините, что столько смайлов, но МНЕ ОЧЕНЬ нужна помощь!!! Я не разобрался в этойй доке.!!!
PM MAIL   Вверх
korob2001
Дата 5.9.2004, 19:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61
Вот пример из документации к модулю Net::SMTP. Проверил лично, все прекрасно работает.
Код

#!/usr/bin/perl -w
use strict;
use warnings;
use Net::SMTP;

my $server = "smtp.mail.ru";  # Укажи smtp сервер
my $mail_to = '[email protected]'; # E-mail адрес получателя
my $message = "Это просто тестовое сообщение!"; # Сообщение

my $smtp = Net::SMTP->new( $server );
  $smtp->mail( $ENV{ USER } );
  $smtp->to( $mail_to );
  $smtp->data();
  $smtp->datasend("To: $mail_to\n");
  $smtp->datasend("\n");
  $smtp->datasend("$message\n");
  $smtp->dataend();
  $smtp->quit;

Удачи.


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
ElectricalStorm
Дата 6.9.2004, 09:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 9
korob2001 Вы -w по привычке поставили ? smile.gif))

Код

open(SENDMAIL, "|/usr/sbin/sendmail -oi -t -odq") or die "Can't fork for sendmail: $!\n";
print SENDMAIL << "EOF";
       From: Fancy Chef <[email protected]>
       To: Grubby Kitchenhand <[email protected]>
       Subject: Re: The Perl Cookbook

       (1) We will never finish the book.
       (2) No man who uses EMACS is deserving of love.
       (3) I recommend coq au vi.

       Frank Wah
EOF
close(SENDMAIL);



--------------------
Нужно знать инструмент, которым пользуешься
PM MAIL   Вверх
GrayCardinal
Дата 6.9.2004, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Фигасе
****


Профиль
Группа: Завсегдатай
Сообщений: 3039
Регистрация: 9.11.2003

Репутация: нет
Всего: 58
ElectricalStorm
перец просил через SMTP biggrin.gif


--------------------
Go go go !
PM MAIL WWW   Вверх
Bezdna
Дата 27.2.2006, 16:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
напишите для Mail::Sender
PM MAIL   Вверх
sharq
Дата 9.3.2006, 19:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Perl Liker
**


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

Репутация: 2
Всего: 28
Bezdna,
Цитата(Bezdna @ 27.2.2006, 17:24 Найти цитируемый пост)
напишите для Mail::Sender

если не можешь сам, то попробуй MIME::Lite, там в документации все примеры есть. smile



--------------------
[color=gray]There's More Than One Way To Do It[/color]
PM MAIL WWW ICQ Skype   Вверх
Kannabismus
Дата 10.3.2006, 14:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Тим Тоуди



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

Репутация: нет
Всего: 2
Цитата
Q: What is the best spam mailer module for spam mails?
A: It is not possible to send mail using Perl.
PM   Вверх
TwiSteR
Дата 27.3.2006, 21:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Кибер красавчег
*


Профиль
Группа: Участник
Сообщений: 231
Регистрация: 15.6.2005
Где: World->Russia

Репутация: нет
Всего: 2
Так в догонку smile
Код

use Mail::Sendmail;

sub email_user {
          my ($rcpt,$from,$subj,$message) = @_;

my %mail = ( To      => $rcpt,
             From    => $from,
             Subject => $subj,
             Message => $message,
             'X-Mailer' => "Mail::Sendmail version $Mail::Sendmail::VERSION"
           );
          sendmail(%mail) or die $Mail::Sendmail::error;
          print "OK. Log says:\n", $Mail::Sendmail::log;
}

--------------------
PM MAIL WWW ICQ   Вверх
Nika
Дата 1.5.2006, 13:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
А как и с помощью какого модуля можно присоединить файлы? Где это можно почитать? Или может дадите ссылку на примерчик...   smile 
 
PM MAIL WWW ICQ MSN   Вверх
Страницы: (3) Все [1] 2 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: CGI программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к CGI программированию
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", качать здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: разработка для Web | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0549 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.