MIME Structure Multipart/Mixed with attachment and Multipart/Alternative

blaine · Apr 3, 2007

Hello,

I'm trying to send a message that has an attachment as well as either
text or html message depending on the email client. Below is the code
I use to create the structure. However when the email arrives it looks
good except that boundary information is displayed prior to the email
client showing the correct alternative selection.

How can I manipulate this structure so that boundary information is
not displayed when the email client chooses either the text or html
entity for display?

++++CODE++++
my $top = MIME::Entity->build('Type' => "multipart/mixed",
'From' => '(e-mail address removed)',
'To' => '(e-mail address removed)',
'Subject' => 'test Message' );

### Attach stuff to it:
$top->attach(Path => "t.txt",
Type => "text/plain",
Disposition => "attachment",
Encoding => "7bit");

##Build Alternative Entity for email client to select the correct
message
my $ent = MIME::Entity->build('Type' => "multipart/alternative");

$ent->attach(Data => 'test text/plain Message',
Type => 'text/plain',
Encoding => "7bit");

$ent->attach(Data => '<html><body>test <h3>text/html</h3> Message</
body></html>',
Type => 'text/html',
Encoding => "7bit");

## add the alternitive entity to the root entity (multipart/mixed)
$top->add_part( $ent );

## Show the skeleton.. After send the message
$top->dump_skeleton(\*STDERR);
#open MAIL, "| /usr/sbin/sendmail -t -f \"(e-mail address removed)\"" or die
"open: $ !";
#$top->print(\*MAIL);
#close MAIL;

blaine · Apr 4, 2007

Well after reading and re-reading the docs I finally found a solution
to my problem. I just wanted to post it so hopefully it will make
someone else's life easier.

When creating the Entity for the multipart/alternative do not have it
specified as a top level entity. Instead use TOP => 0;

Below is the solution...

use MIME::Entity;

my $top = MIME::Entity->build('Type' => "multipart/mixed",
'From' => '(e-mail address removed)',
'To' => '(e-mail address removed)',
'Subject' => 'Test Message' );

### Attach a plain text file
$top->attach(Path => "t.txt",
Type => "text/plain",
Disposition => "attachment",
Encoding => "7bit");

### Create an new entity to contain both HTML and Text versions of the
### message
my $ent = MIME::Entity->build('Type' => "multipart/alternative",
'Top' => 0,
);

## Attach the text/plain entity to the multipart/alternative entity
$ent->attach(Data => 'test text/plain Message',
Type => 'text/plain',
Encoding => "7bit");

## Attach the text/html entity to the multipart/alternative entity
$ent->attach(Data => '<html><body>test <h3>text/html</h3> Message</
body></html>',
Type => 'text/html',
Encoding => "7bit");

### Attach the Multipart/Alternative Entity to the Multipart/Mixed
Entity
$top->add_part( $ent );

$top->dump_skeleton(\*STDERR);

#open MAIL, "| /usr/sbin/sendmail -t -f \"(e-mail address removed)\"" or die
"open: $ !";
#$top->print(\*MAIL);
#close MAIL;

MIME::Lite alternative?	1	Feb 3, 2013
javamail content not multipart	8	Jun 11, 2010
Problem with Email::MIME and Email::MIME::Attachment::Stripper	0	May 28, 2006
Perl, Mail, Mime & Multipart....	14	Jun 3, 2005
problem with Email::MIME::Attachment::Stripper	0	Jun 11, 2006
FAQ 9.21 How do I use MIME to make an attachment to a mail message?	0	Mar 9, 2011
Mime::Lite module generating an error	2	Nov 1, 2012
Using MIME::Lite for multipart message - trouble with string manipulation	8	Dec 9, 2004

MIME Structure Multipart/Mixed with attachment and Multipart/Alternative

blaine

blaine

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads