attachmenty

[hancik]

#!/usr/bin/perl

use MIME::Lite;

$msg = new MIME::Lite

           From            => "root\@localhost",
           To              => "veverka\@localhost",
           Subject         => "TEST ATTACH",
           Type            => 'multipart/mixed',
           Data            => "a test";

#attach $msg
#           Type            =>'text/plain',
#           Data            =>["hello this is a test"],
#

$msg->attach(Type => 'text/plain',
    Data => ["Having a wonderful time... \n",
      "wish you were looking at HTML \n",
      "instead of this boring text!\n"]);

attach  $msg
           Type            =>'application/octet-stream',
           Encoding        =>'base64',
           Path            =>"/home/download/P.txt",
           Filename        =>"P.txt";

$msg->send;

je k tomu potreba modul Lite.pm

funguje mi to na 100%

cao


--
    ~ hancik ~
hancik na atlas.cz
 ICQ:18595762


"Branislav Vartik" <@ern.kit.vslib.cz> wrote in message
news:20000605182740.A7947 na indian...
> Dobry den prajem,
>
> neviete ktory modul mam pouzit ked chcem citat attachmenty zo standardneho
> mailu (rfc822)? mailtools z cpan-u mi nepomohli (mozno som zle pozeral).
> --
> http://brano.vartik.sk/