Perlを使ってSendmailを使って複数の受信者に同じメールをどのように送信しますか？

Question

私は以下のPERLスクリプトを持っていますが、一度に複数のメールに送信することはできません。複数のメールに、別々のメールとして送信するにはどうすればよいですか？

open(SENDMAIL, "|/usr/lib/sendmail -oi -t") || die "Cannot open sendmail output"; 
 

 
print SENDMAIL <<"ENDENDEND"; 
 
From: <test\@test.com> 
 
To: <test1\@test1.com> 
 
Subject: report spam 
 
MIME-Version: 1.0 
 
Content-Type: multipart/mixed; 
 
    boundary="DeathToSpamDeathToSpamDeathToSpam" 
 

 
This is a multi-part message in MIME format. 
 
--DeathToSpamDeathToSpamDeathToSpam 
 
Content-Type: text/plain; charset=us-ascii 
 
Content-Transfer-Encoding: 7bit 
 

 

 
--DeathToSpamDeathToSpamDeathToSpam 
 
Content-Type: message/rfc822 
 
Content-Disposition: attachment 
 

 
ENDENDEND 
 

 
while (<STDIN>) { 
 
     print SENDMAIL ; 
 
} 
 

 

 
print SENDMAIL <<"ENDENDEND"; 
 

 
--DeathToSpamDeathToSpamDeathToSpam-- 
 
ENDENDEND 
 

 
close (SENDMAIL);

ありがとう！

Answer 1

sendmailプログラムを実行してメールを送信すると、一度に1つのメールしか送信できないので、sendmailプログラムがどのように動作するのですか？メールはsendmailにパイプされ、メールはEOFで行われます。つまり、次のメールに対してsendmailを再度呼び出す必要があります。

もう一つの方法は、配送のためにsendmailを実行するのではなく、Net::SMTPまたは同様のモジュールを使用してSMTPサーバーに直接話すことです。この方法で、単一のSMTP接続で複数のメールを送信することもできます。

編集：Andrzej A. Filipのコメントに記されているように、-bsオプションを指定してsendmailを呼び出すと、stdinとstdoutとの通信を期待する最小限のSMTPサーバーとして動作します。この機能は、おそらくoriginal sendmailよりも使用頻度の高いPostfixのsendmailラッパーでも実装されているようです。
しかし、私はこの操作モードをサポートしているモジュールを認識していないので、双方向通信を設定してIPC::Open2と設定してから、メール処理とエスケープルールのすべての奇妙な終わりを含むSMTP protocolを話してください。ローカルホスト上のメールサーバーにSMTPを話すだけで、すでにプロトコル固有のものすべてに気をつけているメールをNet::SMTPで扱うことができます。

Answer 2

この例では、「Cc：」を追加しているようです。

何かの理由で、Bcc：を使用するか、別のTo：電子メールを追加することはできませんが、Ccはそれを行うようです。