我正在用 Perl 编写一个程序,它会向收件人列表发送一封电子邮件。完成后,我想打印所有收件人的列表以及他们是否收到电子邮件,如下所示: - email@email.com 是 - email2@email.com 错误等等。
我写了下面的代码,它可以工作,如果交付失败,将电子邮件和电子邮件发送给发件人,但我不知道如何打印列表?
use Email::Simple::Creator; # or other Email::
while (<lista_direcciones>) {
#En $_ está cada una de las direcciones
my $message = Email::Simple->create(
header => [
From => $dir_origen,
To => $_,
Subject => $asunto,
],
body => $contenido,
);
try {
sendmail($message, { transport => $transport });
} catch {
warn "Sending failed: $_";
};
}
提前致谢!