CGI メールフォームからBCCのアドレスにメールが送信できない(Perl)
初心者で簡単なメールフォームを作成しております。
宛先となる支店を選択後、メールのTOにその支店のアドレスが入り、メールは受信できます。同時にBCCにも一人のアドレスを入力してメールを送信したいのですが、BCCにはメールが届きません。
以下に抜粋したソースを記述しますので、どなたかご教授願います。
--------------------- HTML 部分 ------------------------------
<form action="./cgi/●●/sendmail.cgi" name="myform" method="POST">
<table>
<tr><td>あなたのメールアドレス</td>
<td><input type="text" name="email" size="60" maxlength="60"></td>
</tr>
<tr><td>お問合せ先の支店を選択</td>
<td><select name="address">
<option value="" selected>選択してください</option>
<option value="aaaaa@domain.jp">A支店</option>
<option value="bbbbb@domain.jp">B支店</option>
<option value="ccccc@domain.jp">C支店</option>
</select>
</td>
</tr>
<tr>
<td><input type="submit" name="submit" value="送 信"></td>
<td><input type="reset" name="reset" value="キャンセル"></td>
</tr>
</table>
</form>
--------------------- cgi 部分 -------------------------------
require '../cgi-lib.pl';
require '../jcode.pl';
$sendmail = '/usr/sbin/sendmail';
$bcc_address = 'bccbcc@gmail.com';
$email = $in{'email'};
$address = $in{'address'};
&jcode'convert(*email,'sjis');
&jcode'convert(*address,'sjis');
$message = <<EOF;
Subject: 質問
From: $email
Errors-to: $email
Reply-To: $email
-------------------------------------------------------------
質問内容
-------------------------------------------------------------
[お客様のメールアドレス] $email
EOF
open(MAIL,"|$sendmail $address");
print MAIL $message;
print MAIL "BCC: $bcc_address\n";
close(MAIL);
print <<EOF;
Content-Type: text/html
<html>
<head>
<title>送信しました</title>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
</head>
<body>
●お客様のメールアドレス $email<br>
</body>
</html>
EOF
お礼
簡潔にありがとうございます。 助かりました。