Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

adding multiple attachments to email

by perlnoobster (Sexton)
on Apr 30, 2013 at 08:22 UTC ( #1031354=perlquestion: print w/ replies, xml ) Need Help??
perlnoobster has asked for the wisdom of the Perl Monks concerning the following question:

Hi monks, I am unable to add multiple attachements to an email (i'm using the Mail::Sender module) here is my code:
send_email(); sub send_email { my $sender=new Mail::Sender({from =>$email_sender, fake_from =>$email_sender,smtp => ''}); $sender->MailFile({to => $email_recipient, subject => $email_subject, file=> $outfile, file=> $file1, msg => $email_body}); }
only the first file (outfile) is attached to the email, the second file (file1) is not. please can someone help me? Thank you

Comment on adding multiple attachments to email
Download Code
Replies are listed 'Best First'.
Re: adding multiple attachments to email
by aitap (Deacon) on Apr 30, 2013 at 08:49 UTC

    Parameters of MailFile method are constructed from a hash, which is a "unique key" -> "some value" map. There can be only one "file" key. Fortunately, Mail::Sender's MailFile method allows you to specify an array of file names to attach:

    The file parameter may be a "filename", a "list, of, file, names" or a \@list_of_file_names.

    Try this:

    $sender->MailFile({to => $email_recipient, subject => $email_subject, file => [ $outfile, $file1 ], msg => $email_body});

      Thank you Aitap for your help, I have updated the code however I recieve the following error: syntax error at line 503, near "msg" this is the code i have used :
      send_email(); sub send_email { my $sender=new Mail::Sender({from =>$email_sender, fake_from =>$email_sender,smtp => ''}); $sender->MailFile({to => $email_recipient, subject => $email_subject, file=> [ $outfile, $file1 ] msg => $email_body}); }
      edit - i added a comma after the file=> [ $outfile, $file1 ], and the syntax error is not showing anymore, however I'm not receiving any emails either ?!

        Sorry for the comma - I edited my message shortly after posting it and noticing the comma's absence.

        Try adding 'debug' parameter to the constructor to debug your messages.

        UPDATE- It works! just a bit slow in generating the email though:) Thank you!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1031354]
Approved by aitap
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (6)
As of 2015-11-28 05:45 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (738 votes), past polls