如何使用Email :: Send :: SMTP :: Gmail向多个收件人发送电子邮件

Question

我正在尝试使用Email :: Send :: SMTP :: Gmail编写一个简单的perl脚本来发送电子邮件.

以下是我到目前为止编写的脚本.

   use strict;
   use warnings;

   use Email::Send::SMTP::Gmail;

   my $mail=Email::Send::SMTP::Gmail->new( -smtp=>'smtp.gmail.com',
                                       -login=>'abc@gmail.com',
                                       -pass=>'12345',
                   -port=>587,
                   -verbose=>1,
                   -debug=>1);

   $mail->send(-to=>'pqr@gmail.com', -subject=>'Hello!',     -body=>'Just testing it', -verbose=>1, -debug=>1);

   $mail->bye;

这个脚本工作正常.如何将此电子邮件发送给多个人(即"收件人"字段中的多个电子邮件ID).我尝试过使用:

$mail->send(-to=>['pqr@gmail.com', 'xyz@gmail.com'], -subject=>'Hello!',     -body=>'Just testing it', -verbose=>1, -debug=>1);

但是我收到一个错误:

Net::SMTPS=GLOB(0x23b77a8)>>> RCPT TO:<ARRAY(0x1ee5e78)>
Net::SMTPS=GLOB(0x23b77a8)<<< 553 5.1.2 The address specified is not a  valid RFC-5321 address. w78sm722980qka.25 - gsmtp

Answer 1

从文档中:在电子邮件地址之间添加逗号.

发送(-to =>'',[ - 子项=>'', - cc =>'', - bcc =>'', - 反复数=>'', - 体=>'', - 附件=>' '])
它一次编写并发送电子邮件

to,cc,bcc:逗号分隔的电子邮件地址
附件:带有完整路径的逗号分隔文件

$mail->send(-to=>'a@gmail.com,b@gmail.com,c@gmail.com,...'