Mailinglisten-Archive |
Hallo,
Can anyone suggest why this script doesn't send an email correctly?
in Outlook, Netscape and altavista
everything is OK (HTML and Logo)
in GMX, Hotmail and yahoo,
HTML-text is correct but Logo look like Attachement
and Lycos show nothing!
#!/usr/bin/perl -w
use MIME::Lite;
use strict;
my $gid="my-Logo";
my $html='<A HREF="http://www.performaxx.de"><IMG SRC="cid:'.$gid.'"
ALT="Logo"></A> <BR><H1>E-mail as HTML</H1>text bla bla bla<I>
in HTML</I><BR> <HR>';
my $msg = MIME::Lite->new(
From =>'at_(at)_performaxx.de',
To =>'adamtuszynski_(at)_netscape.net',
Subject =>'test-19.03',
Type =>'multipart/related',
);
my $fancy = $msg->attach( Type =>'text/html',
ReadNow => 1,
Data =>$html);
$fancy->attach(
Type =>'image/jpeg',
Path =>'/usr/local/testserver/Logo.jpg',
Id =>$gid);
if (open(MAILER,"|/usr/lib/sendmail -t -oi -oem")) {
print MAILER $msg->as_string;
close(MAILER);
}
Thank you!
Adam Tuszynski
at_(at)_performaxx.de
php::bar PHP Wiki - Listenarchive