[Perl-unix-users] Needing some fine tuning on MIME::Lite

[byron wise]

I have a script below that I'm playing with.  I'm concerned with two things,
plain text body shows up where appropriate and html body shows up where
appropriate.  I haven't been able to check the plain text yet but I'm having
some problems with the HTML.  
The html body has the following html items:
1. Bold text
2. Linked text
3. Image where I link to an external graphic
4. Image that I include in the attachment of the mail

Summary of weird HTML I'm getting in different Mail Clients:
1. Excite Inbox: Everything is perfect
2. Outlook Express: Everything is perfect
3. Yahoo Inbox: Everything works except item #4 listed above is broken
4. Hotmail Inbox: The only thing that shows up is item #4

Any help would be appreciated.

byron

<begin script>
#!/usr/local/bin/perl -w

use strict;

use MIME::Lite;

my $html = qq~  This message should render html.  As a Check:
<b>BOLD</b><br>\n
                Link: <a href="http://www.yahoo.com";>Yahoo!</a><br>\n
                Href Image:<img
src="http://www.neurohub.com/salu/graphics/neurologo.gif";><br>\n
                Attached Image: <img src="cid:myimage.gif";>~;
my $text = qq~This message doesn't render html.  As a Check: <b>BOLD</b>  <a
href="http://www.yahoo.com";>Yahoo!</a>~;

my $msg = MIME::Lite->new(
                From            =>      '[EMAIL PROTECTED]',
                To              =>      '[EMAIL PROTECTED], [EMAIL PROTECTED],
[EMAIL PROTECTED], [EMAIL PROTECTED]);
                Subject         =>      'Testing MIME type',
                Type            =>      'multipart/alternative');

$msg->attach(
                Type            =>      'Text',
                Data            =>      $text);

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


$msg->attach(
                Type            =>      'image/gif',
                Path            =>     
'/web/pub/salu/htdocs/salu/graphics/servicesheader.gif',
                Id              =>      'myimage.gif');
my $str = $msg->as_string;
$msg->send;





_______________________________________________________
http://inbox.excite.com


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