Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > 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('postmaster@domain.ru');

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

$smtp->quit;

Автор: Itsys 28.10.2008, 11:58
Хм.... ты только забыл команду
Код

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

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

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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)