さくらのレンタルサーバーでメーリングリストを使用していますが、fmlというものが使用されています。

今回は「メールを送ってくれたら、送信者に受付番号を自動応答したい」という希望で色々調べたり、教えて貰ったりしました。

今回もヤンマさんにヒントを頂いて頑張りました！ヤンマさんいつもありがとうございます。

さて、fmlには「config.ph」という設定ファイルがあります。
今回もそれを修正していきます。
前回までのfml回で説明しているのでそちらを参照して下さい。

返信先を指定して居ない場合の挙動

さくらのMLで送信元への配信をスキップ

$RECEIVED_FILE=      "$DIR/received";

$str = "日本語";
use Encode 'from_to';
from_to($str, 'Shift_JIS', 'UTF-8');
$RECEIVED_STATEMENT = "$str";

$DISTRIBUTE_CLOSE_HOOK= q{
  $Envelope{'GH:From:'} = $MAIL_LIST;
  $MY_RECEIVED_STATEMENT=
        sprintf("[${BRACKET}:%05d] ${RECEIVED_STATEMENT}", $ID);
  &SendFile($From_address, $MY_RECEIVED_STATEMENT, $RECEIVED_FILE);
};

ずばり、私のたどり着いた答えはこうでした。

自動応答の内容を示すファイル

$RECEIVED_FILE=      "$DIR/received";

↑これは「received」というファイルを参照しなさいよ！という指示です。
config.phと同じディレクトリに、定型文のファイルがいくつかあります。
それを複製して、中身を書き換えます。
中身は何でも構いません。

自動応答のタイトル（日本語対応）

$str = "日本語";
use Encode 'from_to';
from_to($str, 'Shift_JIS', 'UTF-8');
$RECEIVED_STATEMENT = "$str";

これが一番悩みました。
メールのタイトルを日本語化したいのですが、文字化けしてしまうのです。
色々調べた結果、「Shift_JISをUTF-8に変化してタイトルに表記」という手順が必要らしいという事が分かりました。
1行目の「日本語」の所を自由に書き換えて最終的に「RECEICED_STATEMENT」に受け渡します。

以下のサイトを参考にさせて頂きました、大変ありがとうございました。
参考：fml.org

参考：Perlゼミ

返信者のアドレスを変更する

  $Envelope{'GH:From:'} = $MAIL_LIST;

そのままやると送信元（返信者）が管理者アドレスみたいなアドレスになってしまいます。
そこで送信元を修正します。
MAIL_LISTとは予め指定されたメーリングリストのアドレスの様です。

自動応答を組み立てて送信する

$MY_RECEIVED_STATEMENT=
        sprintf("[${BRACKET}:%05d] ${RECEIVED_STATEMENT}", $ID);
  &SendFile($From_address, $MY_RECEIVED_STATEMENT, $RECEIVED_FILE);

自動応答の中身を組み立てます。

[${BRACKET}:%05d]

これは自動付与する連番を参照する命令です。

SendFile($From_address, $MY_RECEIVED_STATEMENT, $RECEIVED_FILE);

From_Addressつまり元々メールを送ってきた人に、指定のタイトルを付けて、RECEIVED_FILEを本文にして送ってね！という事だと思います。

これでメーリングリストがメールを受け取ると送ってくれた人に自動応答してくれます。

やり残した事

RECEIVED_FILEで指定した本文中に受付番号が入れられると良いのですが…
それがまだ未解決のままです。

私の中の現在の最終形

このコードで以下の3つを実現しています。
1．通常はMLメンバー全員に配信されるメールを「送信者には送信しない」
2．MLへ送られたメールの返信先が空欄なら送り元のアドレスを入れる
3．送信者には改めて「受付メール」を送信する

# 送信元への配信はスキップし、Reply-toが未設定なら送信元アドレスを挿入
$START_HOOK = q#
 $SKIP{ $From_address } = 1;
 if ("reply-to" == $MAIL_LIST) {
        &DEFINE_FIELD_FORCED("reply-to", $From_address);
    };
#;

# 自動応答
$RECEIVED_FILE=      "$DIR/received";
$str = "メール受付のご案内";
use Encode 'from_to';
from_to($str, 'Shift_JIS', 'UTF-8');
$RECEIVED_STATEMENT = "$str";

$DISTRIBUTE_CLOSE_HOOK= q{
  $Envelope{'GH:From:'} = $MAIL_LIST;
  $MY_RECEIVED_STATEMENT=
        sprintf("[${BRACKET}:%05d] ${RECEIVED_STATEMENT}", $ID);
  &SendFile($From_address, $MY_RECEIVED_STATEMENT, $RECEIVED_FILE);
};