Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > MIME::Lite отложенная отправка

Автор: Itsys 27.10.2008, 14:30

Добрый день,

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

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

Автор: ginnie 27.10.2008, 15:46

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;

Автор: Itsys 28.10.2008, 11:58

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

Код


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

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

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