さくらのレンタルサーバーでメーリングリストを使用していますが、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);
};
0コメント