如何在Perl中使用Email :: Simple将电子邮件发送到多个电子邮件地址？

Question

I want to be able to send email to multiple email addresses in:

my $email = Email::Simple->create(
    header => [
        To      => '"My Name" <myname@something.com>',
        From    => '"Someone1" <some@somewhere.com>',
        Subject => $subject,
    ],
    body => $body
);
sendmail($email, {transport => $transport});

Is it possible to write:

From => '"Someone1" <some@somewhere.com>', '"Someone2" <some2@somewhere.com>'

Answer 1

Just use commas in the string:

my $email = Email::Simple->create(
    header => [
        To      => join(", ", @people),
        From    => '"Someone1"',
        Subject => $subject,
    ],
    body => $body
);

Answer 2

If you want send mail to multiple mail address the key is TO not FROM

So, you maybe will be using something like:

To => 'mail1@mail.com;mail2@mail.com;mail3@mail.com;mail4@mail.com'

Answer 3

Put all of the emails inside of an array, then iterate through the array with a foreach:

#!/usr/bin/perl -w
use strict;   
use Email::Send;
use Email::Send::Gmail;
use Email::Simple::Creator;

    my @emails = ('foo@bar.com', 'bar@foo.com', 'etc@foo.com');
    my $num = @emails;

      foreach (@emails) {
          my $email = Email::Simple->create(
              header => [
                  From    => 'FROM@gmail.com',
                  To      => "$_",
                  Subject => "$subject",
              ],
              body => "$body"
              );

      my $sender = Email::Send->new(
          {   mailer      => 'Gmail',
              mailer_args => [
                  username => 'FROM@gmail.com',
                  password => 'PASSWORD',
                  ]
          }
          );
      eval { $sender->send($email) };

    }

Note: This will work for whichever module you decide to use. Here I've used: Email::Send(::Gmail), and Email::Simple::Creator.