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
