Hey everyone,

I am using Mime::Lite to send a bit of email.  Sometimes it will be with
an attachment and sometimes it will be without.

This is my code:

-------------------------------------
if ($AttachFile)
 {
        $msg = MIME::Lite->new(
              To                => $To,
                From            => $From,
            Subject     => $Subj,
              cc                => $CC, 
                Bcc             => $BCC,
                'X-MSMail-Priority' => $Priority,
                'Importance' => $Priority,
                'X-Mail-Sender' => 'My Sender',
                Type            => 'multipart/mixed'
                );
        $msg->attach(
             Type               => 'text/html',
                Data            => 'This is a test'
                );
        $AttachType = 'base64' unless $AttachType;
        $msg->attach(
                Type            => $AttachType,
                Path            => $AttachFile,
                );
 }
else
 {
        $msg = MIME::Lite->new(
                To              => $To,
                From            => $From,
                Subject => $Subj,
                cc              => $CC, 
                Bcc             => $BCC,
                'X-MSMail-Priority' => $Priority,
                'Importance' => $Priority,
                'X-Mail-Sender' => 'My Sender',
                Type            => 'text/html',
                Data            => 'This is a test'
        );
 } 
------------------------------------

When I send mail with an attachment, the mail looks good in Outlook,
Outlook Express, Netscape mail, but in Eudora it will look like:

----------------------
Subject: Test

Content-Disposition: inline
Content-Length: 1179
Content-Transfer-Encoding: binary
Content-Type: text/html

This is a test

Content-Disposition: inline; filename="files.zip"
Content-Type: base64; name="files.zip"
------------------------------------------------

It adds all the visible 'content-' stuff.

Anyone know how I can convince Mime::Lite to get rid in Eudora?

Thanks,

Troy

_______________________________________________
Perl-Unix-Users mailing list. To unsubscribe go to 
http://listserv.ActiveState.com/mailman/subscribe/perl-unix-users

Reply via email to