添付ファイルをつけてメールを送る
以下のようなイメージでプログラムを制作しようと思っています。
csvファイル
メールアドレス1,添付ファイル1
メールアドレス2,添付ファイル2
メールアドレス3,添付ファイル3
メールアドレス4,添付ファイル4
・
・
・
cgiファイル
・csvファイルを読み込む
↓
・タイトル、本文は固定。
・メールアドレス1には添付ファイル1を送る。(アドレス2なら2を添付)
・csvファイルの行数だけこれを繰り返す。
-----------------------------------------------------------------
フォーム入力送信→担当者にメールが届く
というのはサンプルをもとに作る事ができたのですが、
それに「添付ファイルを付ける」にはどうしたら良いのでしょうか?
現在メールの書き出しは下記のようになっています。(添付無し状態)
#######################################################メール送信
$head = "From: 送信者" . "\n" . "To: 宛先" . "\n" . "Subject: タイトル" . "\n\n";
open(MAIL, "| sendmailパス -t -f'送信者'") ;
print MAIL "$head";
print MAIL <<__END__;
###メール本文###
__END__
close(MAIL);
補足
添付できないファイルがありますと表示されます ファイルサイズはWordの一枚位のビジネス文書です 20~30KB位です。