Как я могу отправить электронную почту на несколько адресов электронной почты, используя Email :: Simple in Perl?

Question

Я хочу иметь возможность отправлять электронную почту на несколько адресов электронной почты в:

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});

Можно ли написать:

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

Answer 1

Просто используйте запятые в строке:

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

Answer 2

Если вы хотите отправить почту на несколько почтовых адресов, ключ будет TO, а не FROM

Итак, вы, возможно, будете использовать что-то вроде:

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

Answer 3

Поместите все электронные письма в массив, затем выполните итерацию по массиву с помощью 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) };

    }

Примечание: Это будет работать для любого модуля, который вы решите использовать. Здесь я использовал: Email :: Send (:: Gmail) и Email :: Simple :: Creator.