Re: Mime Lite attachments

Tue, 21 Sep 2004 09:07:45 -0700 

Hello everybody,

I have used something like this to send e-mail with three parts: one is an
html code that internally refers to other two files to compose the final
design. This code may be adaptable to other needs.

May be this help somebody.

Josimar Nunes de Oliveira


==========================

$msg = MIME::Lite->new(
   From => $from_id,
   To => $to_id,
   Cc => $cc_id,
   Subject => $subject_text,
   Type => 'multipart/related',
    );

my $var = '<html>....<body>....
                    <table border="1"
background="cid:InternalFileNameA.gif";>...
                    ....
                    ....<img src="cid:InternalFileNameB.jpg";>....
                    ....
                    </body></html>';

$msg->attach(
       Type => 'text/html',
       Data => $var
     );

$msg->attach(
       Type => 'image/gif',
       Id => 'InternalFileNameA.gif',
       Path => 'FileNameA.gif'
    );

$msg->attach(
       Type => 'image/jpeg',
       Id => 'InternalFileNameB.jpg',
       Path => 'FileNameB.jpg'
    );

==========================

----- Original Message ----- 
From: "Wiggins d Anconia" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Tuesday, September 21, 2004 10:33 AM
Subject: Re: Mime Lite attachments


>
> All,
>
> Was hoping for some advise b/c I cannot seem to get this to work.
> My problem is that it attaches the path name when I need to actual data
> attached.  So my goal is as if it would be
>
> cat test |uuencode test | mailx -s test [EMAIL PROTECTED]
>
> thanks,
>
> my $scratchtps = "/usr/local/log/filename";
>
> code snippet <
>         there is a process that may/may not populate this file.
> >
>
>
>
>         if ( -s $scratchtps ) {
>                                 &mailme;

The above is usually better written as:

mailme();

>                         }
>
>         sub mailme {
>                         my $msg = MIME::Lite->new(
>                         From    => 'EDM01 <[EMAIL PROTECTED]>',
>                         To      => 'Derek Smith <[EMAIL PROTECTED]>',
>                         Subject => "Return EDM Tapes",
>                         Type    => 'TEXT',
>                         Data     => "$scratchtps",

'Data' is for the body, you need to either use the separate C<attach>
method, or provide the filename as the 'Path' argument.

You really should start reading the docs thoroughly, you have asked a
number of questions that are pretty simple if you just pay attention to
the API, and MIME::Lite has very thorough and simple documentation,

http://search.cpan.org/~yves/MIME-Lite-3.01/lib/MIME/Lite.pm#Create_a_simple_message_containing_just_an_image


>                         Disposition => 'attachment');
>                         $msg->send;
>         }
>

http://danconia.org

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>






-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Reply via email to