Movable Type のメール通知機能でのテンプレートは、直接コードに埋め込まれているため、素人が変更するのは難しい。しかし Perl の知識があればなんとかなるだろう。以下の例では、サブジェクトはエントリーのタイトルそのままに、本文からエントリータイトルや日付など余計な部分を除いたもの。
/lib/MT/App/CMS.pm の 6618 行付近より。
<font color="red">=comment</font>
$name = ('(' x ($fill_len/2)) . ' ' . $name . ' ' . (')' x ($fill_len/2));
$body .= $name . "\n\n";
my @ts = offset_time_list(time, $blog);
my $ts = sprintf "%04d%02d%02d%02d%02d%02d",
$ts[5]+1900, $ts[4]+1, @ts[3,2,1,0];
my $date = format_ts('%Y.%m.%d %H:%M:%S', $ts, $blog);
my $fill_left = ' ' x int(($cols - length($date)) / 2);
$body .= "$fill_left$date\n\n\n";
$body .= ('-' x $cols) . "\n\n";
<font color="red">=cut</font>
if ($q->param('send_excerpt')) {
$body .= MT::I18N::wrap_text($entry->get_excerpt, $cols-4, " "," ") . "\n\n";
$body .= ('-' x $cols) . "\n\n";
}
$body .= $entry->permalink . "\n\n";
$body .= MT::I18N::wrap_text($q->param('message'),$cols, '', '') . "\n\n";
if ($q->param('send_body')) {
$body .= ('-' x $cols) . "\n\n";
$body .= MT::I18N::wrap_text($entry->text, $cols, '', '') . "\n";
}
<font color="red"># 以下の部分をコメントアウトまたは修正
# my $subj = $app->translate("[_1] Update: [_2]", $blog->name, $entry->title);
# ここまで
# 以下の部分を追加
my $subj = $app->translate("[_1]", $entry->title);</font>
</font>
トラックバック URL:
https://perltips.twinkle.cc/trackback/80