URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID1
Нить номер: 43143
[ Назад ]

Исходное сообщение
"Отсылка писем с помощью скрипта на PERL"

Отправлено admin , 20-Апр-04 16:36 
Хочу отсылать письма с атачами на пользователя. Атачи брать с определенной папки.
Письма приходят, но приатаченные файлы нет....

Вот сам скрипт

#!/usr/bin/perl

use MIME::Lite;

$path = "/opt/tmp";
$msg = MIME::Lite->new( From    => 'from@mydomen.my',
                        To      => 'to@mydomen.my',
                        Subject => 'TEST',
                        Type    => 'text/plain; charset=windows-1251',
                        Data       => 'TEST' );

      $msg->attach( Type          => 'x-rar',
              Path           => '/opt/consultant/tmp',
            ReadNow     => '1',
              Filename       => 'rar1.RAR',
            Encoding    => 'base64',
              Disposition => 'attachment' );
      
      $msg->send('sendmail',"/usr/sbin/sendmail -t ");


Содержание

Сообщения в этом обсуждении
"Отсылка писем с помощью скрипта на PERL"
Отправлено victor , 22-Апр-04 01:32 
не знаю, что у тебя не так (час ночи все-таки) :)

у писал когда-то так
$msg = MIME::Lite->new(
        From    =>$from,
        To      =>$to,
        Subject =>$subject,
        Type    =>'application/x-compressed',
        Encoding=>'base64',
        Path    =>$wrkdir.$filename,
        Filename=>$filename
        );
$msg->send;

до сегодняшнего дня работало.