These examples using MIME::Entity work fine. In the first sub we have plain text, a gif and HTML. In the second we have plain text and MSWord docs. I find MIME::Entity (part of MIME::Tools reliable)

sub Respond_HTML {

    use MIME::Entity; 
    
    # first, format the email address for MIME::ENTITY
    # create the top-level, and set up the mail headers:
    my $top = build MIME::Entity 
       Type => 'multipart/mixed',
       From => $our_email,
       To => $email,
       Subject => "Information from $us";
    
    # next, add the body of the message:
    attach $top 
       Data=> "Hello $name,\n\nHere is the information you requested.\
+n\n$us \n\n";

    # now add the pretty leterhead:
    attach $top 
       Path => "$path_to_home_dir/Images/letterhead.gif", 
       Type => 'image/gif', 
       Encoding => 'base64';
    
    # now, make attachment/s:
    for ($i=0 ; $i<=4; $i++ ) {
        if ($request[$i]) {
           attach $top 
              Path => "$path_to_home_dir/Auto_Respond_Files/$HTML_file
+[$i]", 
              Type => 'text/HTML',
              Encoding => '7bit';
        }
    }
    # finally, send it:
       open MAIL, "|$mail_prog -t -i" or die "open: $!";
       $top->print(\*MAIL);
       close MAIL;
    
    return 1;
}

# end Respond_HTML


# Send automatic msword.doc email response according to request(s)

sub Respond_MSWord  {
    
    use MIME::Entity; 
    
    # first, format the email address for MIME::ENTITY
    # create the top-level, and set up the mail headers:
    my $top = build MIME::Entity 
       Type => 'multipart/mixed',
       From => $our_email,
       To => $email,
       Subject => "Information from $us";
    
    # next, add the body of the message: 
    attach $top 
       Data=> "Hello $name,\n\nHere is the information you requested.\
+n\n$us\n\n";
    
    # now, make attachment/s:
    for ($i=0 ; $i<=4; $i++ ) {
        if ($request[$i]) {
           attach $top 
              Path => "$path_to_home_dir/Auto_Respond_Files/$msword_fi
+le[$i]", 
              Type => 'application/octet-stream',
              Encoding => 'base64';  
        }
    }
    
    # finally, send it:
       open MAIL, "|$mail_prog -t -i" or die "open: $!";
       $top->print(\*MAIL);
       close MAIL;
    
    return 1;
}
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

Perhaps I missread your reply, but it seems like the two examples simply create a single 'multipart/mixed' MIME. The first one sends some plain text and then attaches an HTML file. The second on sends some plain text and then attaches a word file (even though Type=> is set to octet-stream and not 'msword'.

What I'm looking to do is created a formatted e-mail body complete with all html code with a fall back to a simple plain text message if the receipient doesn't have a current email browser that can view HTML e-mails. In addition to those two parts, I also want to attach multiple attachements.

It seems that the correct way to do this is to set the header to 'multipart/mixed' and then define one of the multiparts as 'multipart/alternative' instead of 'text/plain' or 'text/html'. Within that sub-part, the 'text/plain' and 'text/html' are then created. Once the sub-part is "closed-out", then the attachments are added to the original 'multipart/mixed'
--
Filmo the Klown

Now it becomes more clear what you want. I suggest you check out the MIME::Entity docs as you can mainpulate the parts to you hearts content.

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print