Perl - sending multipart/alternative Email

egan007 · 21-04-2006 3:30pm #1

Hi
I'm trying to send emails in plain text and html

#!/usr/bin/perl

$tmp="/tmp/mailtmp";
$reciever="me\@computers.com";
$from="me\@computers.com";
$sendmail="/usr/sbin/sendmail";
$boundary = "====" . time() . "====";

open(EMAIL,">$tmp") || die "Could not open $tmp: $!\n";
print EMAIL "From: $from\n";
print EMAIL "To: $reciever\n";
print EMAIL "Subject: Widget information\n";
print EMAIL "MIME-Version: 1.0\n";
print EMAIL "content-type: multipart/alternative\;";
print EMAIL " boundary=$boundary";

print EMAIL qq~

$boundary = '--'.$boundary;
$boundary
Content-Type: text/plain; charset="iso-8859-1"

Text email.

$boundary
Content-Type: text/html; charset="iso-8859-1"

<HTML>
<BODY>
<p>
HTML email.
</p>
</BODY>
</HTML>

$boundary--
~;
close(EMAIL);

system "cat $tmp | $sendmail $reciever";

The problem is that $boundary in the header does not get set properly it does get set in the body- it is set by the server...

any idea on what my problem is...

Thanks

daymobrew · 21-04-2006 5:00pm

Randal Schwartz, coauthor of Programming Perl and Learning Perl, has a web site with the magazine articles he has written over the years.
Using Google to search the articles I found a few that might be useful:
Using MIME modules and Sending MIME Email
Both of these articles use the standard MIME modules.

finnpark · 21-04-2006 6:06pm

I have code to send emails in text format but not in html format. I would love to know how to use PERL to send HTML mail

finnpark · 21-04-2006 6:17pm

By the way, I don't think there is any need for the \ in front of the @ sign as your not printing to the screen or anything.

finnpark · 21-04-2006 8:45pm

egan007 wrote:

Hi
I'm trying to send emails in plain text and html

#!/usr/bin/perl

$tmp="/tmp/mailtmp";
$reciever="me\@computers.com";
$from="me\@computers.com";
$sendmail="/usr/sbin/sendmail";
$boundary = "====" . time() . "====";

open(EMAIL,">$tmp") || die "Could not open $tmp: $!\n";
print EMAIL "From: $from\n";
print EMAIL "To: $reciever\n";
print EMAIL "Subject: Widget information\n";
print EMAIL "MIME-Version: 1.0\n";
print EMAIL "content-type: multipart/alternative\;";
print EMAIL " boundary=$boundary";

print EMAIL qq~

$boundary = '--'.$boundary;
$boundary
Content-Type: text/plain; charset="iso-8859-1"

Text email.

$boundary
Content-Type: text/html; charset="iso-8859-1"

<HTML>
<BODY>
<p>
HTML email.
</p>
</BODY>
</HTML>

$boundary--
~;
close(EMAIL);

system "cat $tmp | $sendmail $reciever";

The problem is that $boundary in the header does not get set properly it does get set in the body- it is set by the server...

any idea on what my problem is...

Thanks

There is similar code at http://alma.ch/perl/Mail-Sendmail-FAQ.html#HTML .

Let me know if you get it sorted. Thanks.

Zaltais · 21-04-2006 10:36pm

Guys, guys, guys - CPAN is your friend.

MIME::Lite is what you're looking for...

#!/usr/bin/perl

use warnings;
use strict;

use MIME::Lite;

my $from_address = 'me@example.com';
my $to_address = 'you@example.com';

### Adjust subject and body message
my $subject = 'A multipart/alternative MIME message';

### Create the multipart container
my $msg = MIME::Lite->new (
  From => $from_address,
  To => $to_address,
  Subject => $subject,
  Type =>'multipart/alternative'
) or die "Error creating multipart container: $!\n";

### Add the text message part
$msg->attach (
  Type => 'TEXT',
  Data => q{
Text part
}) or die "Error adding the text message part: $!\n";

$msg->attach (
  Type => 'text/html',
  Data => qq{
<html>
  <body>
    <h1>test</h1>
    <p>HTML part</p>
  </body>
</html>
}) or die "Error adding the HTML message part: $!\n";

$msg->send() or die $!;

finnpark · 22-04-2006 11:23am

Zaltais wrote:

Guys, guys, guys - CPAN is your friend.

MIME::Lite is what you're looking for...

#!/usr/bin/perl

use warnings;
use strict;

use MIME::Lite;

my $from_address = 'me@example.com';
my $to_address = 'you@example.com';

### Adjust subject and body message
my $subject = 'A multipart/alternative MIME message';

### Create the multipart container
my $msg = MIME::Lite->new (
  From => $from_address,
  To => $to_address,
  Subject => $subject,
  Type =>'multipart/alternative'
) or die "Error creating multipart container: $!\n";

### Add the text message part
$msg->attach (
  Type => 'TEXT',
  Data => q{
Text part
}) or die "Error adding the text message part: $!\n";

$msg->attach (
  Type => 'text/html',
  Data => qq{
<html>
  <body>
    <h1>test</h1>
    <p>HTML part</p>
  </body>
</html>
}) or die "Error adding the HTML message part: $!\n";

$msg->send() or die $!;

Perfect, 100%. Great stuff. Your a class act Zaltais:)

Perl - sending multipart/alternative Email

Comments