こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

投稿日時 - 2009-06-07 09:54:57

QNo.5023608

すぐに回答ほしいです

質問者が選んだベストアンサー

> open(MAIL,"|$sendmail $address");
> print MAIL $message;
> print MAIL "BCC: $bcc_address\n";
> close(MAIL);

これだと、本文($message)の末尾に「BCC: …」という行が追加されるだけです。
送信先は sendmail の引数で指定しますから、
> open(MAIL,"|$sendmail $address $bcc_address");
> print MAIL $message;
> close(MAIL);
と、bccのメールアドレスも引数に追加しておけば、
そちらにもメールが届くようになります。
それと、
> $message = <<EOF;
> Subject: 質問
> From: $email
> Errors-to: $email
> Reply-To: $email
ここに、
> To: $address
という行は追加しておくべきでしょう。
このままでは、メール内に宛先が入ってません。
いわば、$address の方にも Bcc で送っているような状況です。

それと、
・Subject: は、Mime エンコードするべき
・MIME ヘッダ(MIME-Version、Content-Type、Content-Transfer-Encoding)を付けるべき
かと思います。

投稿日時 - 2009-06-07 10:36:15

お礼

ご回答ありがとうございました。早速、教えていただきました通りにすれば、BCCへメールが届くようになりました。
また、ご指摘していただきました、エンコードもできました。
大変助かりました。ありがとうございました。

投稿日時 - 2009-06-07 22:47:40

ANo.2

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

結論から言うと、当たり前、、です

なんで
$messageの後にBCCいれてるんでしょうか。
メールにはヘッダと本文ってのがあって、
ヘッダの後一行空行があって本文があるのです
BCCはれっきとしたヘッダの一部です。
それを本文の後につけるほうがおかしい。
詳しくは E-mail RFC で検索かけてみること。

ヘッダあれこれ
http://www.mew.org/Newsletters/2.html

投稿日時 - 2009-06-07 10:35:42

お礼

ご回答ありがとうございました。リンクのページは今後も参考にさせていただきます。

投稿日時 - 2009-06-07 22:48:25

あなたにオススメの質問