Trouble with sending more than one attachment

ytjPerl has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I am able to send single attachment but not multiple attachments. Can Any one help? The following code only attached one file from the directory

my $msg = MIME::Lite->new (
  From => $msgFrom,
  To => $msgTo,
  Subject => $msgSubject,
  Type =>'multipart/alternative',
) or die "Error creating multipart container: $!\n";

# Create the HTML part
my $html_part = MIME::Lite::->new(
    'Type' => 'multipart/related',
);

$html_part->attach(
    'Type' => 'text/html',
    'Data' => qq{
        <body>
        <p>hello</p>        
        </body>        
    },
);

my $att_part;
my @files = glob("F:/folder/*");



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

$msg->attach($html_part);
$msg->attach($att_part);
my $email = $msg->as_string();

my $smtp = Net::SMTP_auth->new($smtphost, Port=>$smtpport) or die "Can
+'t connect";

$smtp->mail($msgFrom) or die "Error:".$smtp->message();
$smtp->recipient($msgTo) or die "Error:".$smtp->message();

$smtp->data() or die "Error:".$smtp->message();
$smtp->datasend($email) or die "Error:".$smtp->message();
$smtp->dataend() or die "Error:".$smtp->message();
$smtp->quit or die "Error:".$smtp->message();
[download]

Comment on Trouble with sending more than one attachment Download Code

Replies are listed 'Best First'.
Re: Trouble with sending more than one attachment by Corion (Patriarch) on Oct 18, 2020 at 15:29 UTC
Where in your code is the loop where you loop over the contents of `@files`? You may want something like: `for my $file (@files) { my $att_part = MIME::Lite::->new( 'Type' => 'application/octet-stream', 'Encoding' => 'base64', 'Path' => $file, ); $msg->attach($att_part); };` [download]	[reply] [d/l] [select]
Re^2: Trouble with sending more than one attachment by ytjPerl (Scribe) on Oct 19, 2020 at 18:57 UTC
Tried. This does not work	[reply]
Re^3: Trouble with sending more than one attachment by Corion (Patriarch) on Oct 19, 2020 at 20:07 UTC
Maybe you want to tell us in what sense this does not work? I don't really know how it fails for you, so I don't know what you need to change.	[reply]
Re: Trouble with sending more than one attachment by AnomalousMonk (Archbishop) on Oct 18, 2020 at 18:15 UTC
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: `<%-{-{-{-<`	[reply] [d/l] [select]
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]