Velocity Reviews - Computer Hardware Reviews

Velocity Reviews > Newsgroups > Programming > Perl > Perl Misc > Mail::Sender problem

Reply
Thread Tools

Mail::Sender problem

 
 
Merijn Boom
Guest
Posts: n/a
 
      02-21-2004
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 = '(E-Mail Removed)';

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--




 
Reply With Quote
 
 
 
 
Gregory Toomey
Guest
Posts: n/a
 
      02-21-2004
Merijn Boom wrote:

> 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.


Its not my module

> 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?
>
>


Try MIME::Lite instead.


#!/usr/bin/perl
use strict;

require MIME::Lite;
require MIME::Lite::HTML;


my $msg;
$msg = MIME::Lite->new(
To =>'(E-Mail Removed)',
From =>'(E-Mail Removed)',
Subject =>'HTML with in-line images!',
Type =>'multipart/related'
);
$msg->attach(Type => 'text/html',
Data => qq{ <body>
Here's <i>my</i> image:
<img src="http://spam-me-please.com/images/spam.gif">
</body> }
);
$msg->send;


gtoomey
 
Reply With Quote
 
 
 
 
Merijn Boom
Guest
Posts: n/a
 
      02-21-2004
Gregory,

Many thanks for your advice. I got it working now,

Merijn

"Gregory Toomey" <(E-Mail Removed)> wrote in message
news:3246769.3fzmBbvPbA@GMT-hosting-and-pickle-farming...
> Merijn Boom wrote:
>
> > 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.

>
> Its not my module
>
> > 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?
> >
> >

>
> Try MIME::Lite instead.
>
>
> #!/usr/bin/perl
> use strict;
>
> require MIME::Lite;
> require MIME::Lite::HTML;
>
>
> my $msg;
> $msg = MIME::Lite->new(
> To =>'(E-Mail Removed)',
> From =>'(E-Mail Removed)',
> Subject =>'HTML with in-line images!',
> Type =>'multipart/related'
> );
> $msg->attach(Type => 'text/html',
> Data => qq{ <body>
> Here's <i>my</i> image:
> <img src="http://spam-me-please.com/images/spam.gif">
> </body> }
> );
> $msg->send;
>
>
> gtoomey



 
Reply With Quote
 
 
 
Reply

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Problem problem problem :( Need Help Mike ASP General 2 05-11-2004 08:36 AM



Advertisments