Mail::Sender problem

From: Merijn Boom (m.boom_at_con-x-com.nl)
Date: 02/21/04


Date: Sat, 21 Feb 2004 10:20:01 +0100

Hi there,

I'm trying to create an html mail with embedded pictures in it. I run perl
on Windows and Red Hat but I cannot get your module (Mail::Sender) to work.

I'm just trying to run the examples. Below this message you'll find the perl
example I'm using and the header of the e-mail. What am I doing wrong?

Regards

Merijn Boom

Perl code:

use strict;

 use Mail::Sender;

 my $recipients = 'm.boom@con-x-com.com';

        eval {

                (new Mail::Sender)

                ->OpenMultipart({

                        to => 'mailto',

                        FROM => 'mailfrom',

                        subject => 'Alternatives with images',

        # debug => 'c:\temp\zkMailFlow.log',

                        multipart => 'related',

                        smtp => '127.0.0.1',

                })

                        ->Part({ctype => 'multipart/alternative'})

                                ->Part({ ctype => 'text/plain', disposition
=> 'NONE', msg => 'A long mail message.'})

                                ->Part({ctype => 'text/html', disposition =>
'NONE', msg => '<html><body><h1>A long</h1><p align=center>mail message.<img
src="cid:img1"></p></body></html>'})

                        ->EndPart("multipart/alternative")

                        ->Attach({

                                description => 'ed\'s GIF',

                                ctype => 'image/GIF',

                                encoding => 'base64',

                                disposition => "inline;
filename=\"apache_pb.gif\";\r\nContent-ID: <img1>",

                                file => 'apache_pb.gif'

                        })

                ->Close();

        } or print "Error sending mail: $Mail::Sender::Error\n";

My Header:

To: *

From: *

Subject: Alternatives with images

Date: Sat, 21 Feb 2004 09:57:55 +0100

X-Mailer: Perl script "Perl-1.pl"

            using Mail::Sender 0.8.10 by Jenda Krynicky, Czechlands

            running on medusa (10.1.0.133)

            under account "m.boom"

Message-ID: <20040221_085755_005175.*>

MIME-Version: 1.0

Content-type: multipart/related;

            boundary="Message-Boundary-by-Mail-Sender-1077353872"

Return-Path: *
X-OriginalArrivalTime: 21 Feb 2004 08:58:38.0243 (UTC)
FILETIME=[E52FC730:01C3F858]

--Message-Boundary-by-Mail-Sender-1077353872

Content-Type: multipart/alternative;
boundary="Part-Message-Boundary-by-Mail-Sender-1077353872_2"

--Part-Message-Boundary-by-Mail-Sender-1077353872_2

Content-type: text/plain

Content-transfer-encoding: 7BIT

--Part-Message-Boundary-by-Mail-Sender-1077353872_2

Content-type: image/GIF; name="apache_pb.gif"

Content-description: ed's GIF

Content-transfer-encoding: base64

Content-disposition: inline; filename="apache_pb.gif";

Content-ID: <img1>

--Part-Message-Boundary-by-Mail-Sender-1077353872_2--

--Message-Boundary-by-Mail-Sender-1077353872-

My Message:

A long mail message.--Part-Message-Boundary-by-Mail-Sender-1077353872_2

Content-type: text/html

Content-transfer-encoding: 7BIT

<html><body><h1>A long</h1><p align=center>mail message.<img
src="cid:img1"></p></body></html>--Part-Message-Boundary-by-Mail-Sender-1077
353872_2--



Relevant Pages

  • Mail::Sender problem
    ... on Windows and Red Hat but I cannot get your module to work. ... Below this message you'll find the perl ... Content-type: text/plain ...
    (comp.lang.perl.misc)
  • Mail::Sender problem
    ... on Windows and Red Hat but I cannot get your module to work. ... Below this message you'll find the perl ... Content-type: text/plain ...
    (comp.lang.perl.modules)
  • Re: GUI and Rapid Application Development?
    ... Most simple applications that I dealt with did not need the use of API ... I imagine Perl is faster, ... my Perl scripts are more compact ... Chirag> in Windows that could run on Windows 98 through 2003. ...
    (comp.os.linux.misc)
  • Re: ping Purl Gurl? Beginner Level Perl
    ... Purl Gurl wrote: ... If you are to learn Perl, ... Windows machines is good motivation for using Win. ...
    (alt.usage.english)
  • Re: My Regexp XML Parser -> Structured Perl Data, Cut & Paste Version, No Modules (Vol I)
    ... On Windows NT and later, subprocesses are now started via ``cmd /x/d/c'' ... Perl for ISAPI would sometimes close a filehandle twice. ...
    (comp.lang.perl.misc)