Отправка электронной почты нескольким получателям

Question

Я переместил старый код из старого окна unix в новый ящик unix, и у меня возникли трудности с использованием скрипта perl, отправляющего электронные письма нескольким получателям. Он работает на старой коробке.

Старые окна Perl: версия 5.004_04 построен для PA-RISC2.0

Новая коробка Perl: v5.8.8 построен для IA64.ARCHREV_0-нить-мульти-LP64

Вот основы сценария (урезанная):

use Net::SMTP::Multipart; 
$to = "sam\@bogus.com tom\@foo.com"; 
$smtp = Net::SMTP::Multipart->new($smtpserver); 
$smtp->Header(To => $to, 
     From => "junk\@junk.com", 
     Subj => "This is a test."); 
$smtp->Text("Hello, world!\n"); 
$smtp->End(); 

Это работает, если я изменю его $to = "justOneEmail\@address.com", но если у меня есть два или несколько адресов электронной почты (разделенных пробелами), он больше не работает. Я не получаю сообщение об ошибке, но сообщение не появляется.

Любые идеи, почему?

Answer 1

Сделай like this:

use Net::SMTP::Multipart; 
$to1 = "sam\@bogus.com"; 
$to2 = 'tom@foo.com'; 
$smtp = Net::SMTP::Multipart->new($smtpserver); 
$smtp->Header(To => [ $to1, $to2, 'another_email@server.com' ], 
       From => "junk\@junk.com", 
       Subj => "This is a test."); 
$smtp->Text("Hello, world!\n"); 
$smtp->End(); 

Обратите внимание, что если вы используете двойные кавычки, вы должны избежать @ в адресах электронной почты, или Perl может попытаться интерпретировать его как массив интерполяция.

Answer 2

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

Answer 3

Объявляет массив и поместить все почтовые идентификаторы, как

@MailTo = ('mail1@demomail.com', 'mail2@demomail.com', ...., 'mailn@demomail.com') 

Теперь используйте Net::SMTP модуль, чтобы отправить электронную почту