VPF::MIME::Lite отложенная отправка - Форум программистов

Itsys

Дата 27.10.2008, 14:30 (ссылка)

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

Загрузка ...

Эксперт

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

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

Добрый день,

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

Каким образом можно отправить уже подготовленное сообщение?

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

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

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

Itsys

Дата 28.10.2008, 11:58 (ссылка)

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

Загрузка ...

Эксперт

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

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

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

Код


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

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

а так большое спасибо smile

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