From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/35424
Path: main.gmane.org!not-for-mail
From: "Adam Tuszynski" <at@performaxx.de>
Newsgroups: gmane.emacs.gnus.general
Subject: Can anyone suggest why this script doesn't send an email correctly?
Date: Tue, 20 Mar 2001 10:14:30 +0100
Message-ID: <NEBBKBHBOLJGMCBECMIDGEBACCAA.at@performaxx.de>
Reply-To: <at@performaxx.de>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Trace: main.gmane.org 1035171170 3003 80.91.224.250 (21 Oct 2002 03:32:50 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 03:32:50 +0000 (UTC)
Return-Path: <owner-ding@gnus.org>
Original-Received: (qmail 9800 invoked by alias); 20 Mar 2001 09:14:07 -0000
Original-Received: (qmail 9792 invoked from network); 20 Mar 2001 09:14:07 -0000
Original-Received: from performaxx.de.128.104.62.in-addr.arpa (HELO www.performaxx.de) (qmailr@62.104.128.132)
  by gnus.org with SMTP; 20 Mar 2001 09:14:07 -0000
Original-Received: (qmail 22832 invoked by uid 0); 20 Mar 2001 08:59:07 -0000
Original-Received: from unknown (HELO performaxxat) (62.104.128.137)
  by performaxx.de.128.104.62.in-addr.arpa with SMTP; 20 Mar 2001 08:59:07 -0000
Original-To: <ding@gnus.org>
X-Priority: 3 (Normal)
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook IMO, Build 9.0.2416 (9.0.2910.0)
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2314.1300
Importance: Normal
Original-Lines: 45
Xref: main.gmane.org gmane.emacs.gnus.general:35424
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:35424

Hi,

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.domena.pl"><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@performaxx.de',
		To		=>'adamtuszynski@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@performaxx.de