in reply to Stripping attachment by EMail::MIME::Attachment::Stripper

Here's a possible hack to extract those single-part attachments. It works for this example, but your mileage may vary. 

# $mail is content of message as string.
my $stripper = Email::MIME::Attachment::Stripper->new($mail);
my $msg = $stripper->message;
my @attachments = $stripper->attachments;

# Add fake text so there is more than one part.
# How do we determine if we need to add fake part?
# check content disposition
if ($msg->parts == 1 && scalar(@attachments) == 0)
{
    my $part1 = ($msg->parts)[0]; # These will be Email::MIME objects,
+ too.
    my $disp = $part1->header("Content-Disposition");

    if ($disp && $disp =~ /attachment\s*;/i)
    {
        my @fake_bonus_parts = (
            Email::MIME->create(
                attributes => {
                    content_type => "text/plain",
                    disposition  => "inline",
                    charset      => "US-ASCII",
                },
                body => "Hello, World!",),
            );

        $msg->parts_add(\@fake_bonus_parts);

        $stripper = Email::MIME::Attachment::Stripper->new($msg->as_st
+ring);
        $msg = $stripper->message;
        @attachments = $stripper->attachments;
    }
}

# Continue attachment processing....

[download]

Replies are listed 'Best First'.
Re^2: Stripping attachment by EMail::MIME::Attachment::Stripper
by Anonymous Monk on Dec 04, 2009 at 04:52 UTC

    Thanks for your reply. Is there any other modules, we can strip all the attachments of any type mail.

[reply]
      .... is there any other?..... here is an old note i have from Roger, maybe it will help 
      #!/usr/bin/perl
use strict;
use IO::File;
use Mail::Message::Attachment::Stripper;

#by Roger of Perlmonks
#There are many ways to do this. I recommend the following 
#modules: Mail::Box to manage the mail box and 
#Mail::Message::Attachment::Stripper to strip (multiple) 
#attachments.

#Batch mode - I would use the powerful Mail::Box module to 
#parse each user's mailbox, and for each of the user's mail 
#messages, extract the (folder) name of the user from the 
#email address line, strip all the attachments with 
#Mail::Message::Attachment::Stripper (or similar module), 
#and put the attachments into user's folder.

#Procmail mode - When email message comes in, load it into 
#a scalar, extract the folder name from email address, and 
#use Mail::Message::Attachment::Stripper to strip the 
#attachments. You might also want to delete the attachment 
#from the original email, just save the email message, and 
#append some sort of notice to the modified mail message 
#that their mail attachments are saved under their user 
#directories.


# load the mail message into $mail
# extract user folder path into $user_folder
#...

my $m = Mail::Message::Attachment::Stripper->new($mail);
my @attachments = $m->attachments;

foreach my $a(@attachments) {
 next if $a->{content_type} !~ /jpe?g|gif/i; # ignore non-jpg/gif atta
+chemnts
 my $f = new IO::File "/home/$user_folder/" . $a->{filename}, "w" or
    die "Can not create file!";
 print $f $a->{payload};
}

      [download]
      I'm not really a human, but I play one on earth.
      Old Perl Programmer Haiku
[reply]
[d/l]

In Section Seekers of Perl Wisdom