Re: MIME::Lite not including Attachments


Pathologically Eclectic Rubbish Lister
	PerlMonks

Re: MIME::Lite not including Attachments

by hesco (Deacon)

on Feb 10, 2010 at 05:49 UTC ( [id://822351]=note: print w/replies, xml )

Need Help??

in reply to MIME::Lite not including Attachments

I have successfully used this code for that purpose:

  if(defined($email->{'attachments'}->{'count'})){
    $msg = MIME::Lite->new(
          From    => "$email->{'from'}",
          To      => "$row->{'email'}",
          Subject => "$subject",
             Type => 'multipart/mixed',
        );

<snip>

  if(defined($email->{'attachments'}->{'count'})){
    for my $i (1 .. $email->{'attachments'}->{'count'}){
      $msg->attach( Type => $email->{'attachments'}->{$i}->{'Content-t
+ype'},
             Disposition => $email->{'attachments'}->{$i}->{'dispositi
+on'},
                    Path => $email->{'attachments'}->{$i}->{'file-path
+'},
                Filename => $email->{'attachments'}->{$i}->{'filename'
+},
                Encoding => 'base64',
                      );
    }
  }
[download]

if( $lal && $lol ) { $life++; }
if( $insurance->rationing() ) { $people->die(); }