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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> MIME::Lite отложенная отправка 
V
    Опции темы
Itsys
Дата 27.10.2008, 14:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1338
Регистрация: 21.1.2008
Где: г. Москва

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



Добрый день,

В MIME::Lite есть такая замечательная функция, как печать в файл/возврат в переменную текста сообщения, задача сформировать сообщение, запихнуть его в базу данных, а отправить позже.

Каким образом можно отправить уже подготовленное сообщение?
PM MAIL WWW Skype   Вверх
ginnie
Дата 27.10.2008, 15:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

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



Itsys, лучше всего, наверное, при помощи Net::SMTP. Пример есть в описании модуля ( я его немного приукрасил  smile )

Код

use Net::SMTP;

my @mxs  = ('mx1.domain.ru', 'mx2.domain.ru');
my $mail_string = get_mailstring_from_db();
$smtp = Net::SMTP->new(
    Host    => \@mxs,
    Hello   => 'my.mail.domain',
    Timeout => 30,
);

$smtp->to('[email protected]');

if ( !$smtp->data($mail_string) ) {
    $error_code = $smtp->code();
}

$smtp->quit;


Это сообщение отредактировал(а) ginnie - 27.10.2008, 15:46


--------------------
Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)
PM MAIL Skype Jabber   Вверх
Itsys
Дата 28.10.2008, 11:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1338
Регистрация: 21.1.2008
Где: г. Москва

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



Хм.... ты только забыл команду
Код

$smtp->mail(<адес отправителя>);

перед "$smtp->to"
 smile 

а так большое спасибо  smile 
PM MAIL WWW Skype   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

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


 




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


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

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