Re: Trouble with sending more than one attachment

Further to Corion's post: In the OPed code, in the statement

$att_part = MIME::Lite::->new(
        'Type' => 'application/octet-stream',
        'Encoding' => 'base64',
        'Path' => shift @files,
    );
[download]

the shift @files expression takes only one file path, the first, from the @files array for attachment.

Give a man a fish: <%-{-{-{-<

Comment on Re: Trouble with sending more than one attachment Select or Download Code

Replies are listed 'Best First'.
Re^2: Trouble with sending more than one attachment by ytjPerl (Scribe) on Oct 19, 2020 at 18:56 UTC
Got it. Do you have any idea of how to attach more than one? Thanks	[reply]
Re^3: Trouble with sending more than one attachment by AnomalousMonk (Archbishop) on Oct 19, 2020 at 20:27 UTC
Corion's post seemed like a good suggestion. I see that you've posted that it didn't work. As Corion has replied, "it doesn't work" is usually a very poor problem description. What code didn't work? What was the input? What was the result? Please see Short, Self-Contained, Correct Example and I know what I mean. Why don't you?. Note: It's best to reply directly to Corion's posts on this matter. He knows a lot more about it than I. Give a man a fish: `<%-{-{-{-<`	[reply] [d/l]
Re^3: Trouble with sending more than one attachment by pwagyi (Monk) on Oct 26, 2020 at 06:38 UTC
you need to loop over each file. `$att_part = MIME::Lite::->new( 'Type' => 'application/octet-stream', 'Encoding' => 'base64', 'Path' => shift @files, ); $msg->attach($html_part); $msg->attach($att_part); # assuming all files are same type and encoding, for my $file(@files) { $msg->attach( 'Type' => ......, 'Encoding' => ......, 'Path' => $file, ); }` [download]	[reply] [d/l]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks