#付加するヘッダやフッタの設定(?)その後、以下に移動し
$PREAMBLE_MAILBODY = "";
$TRAILER_MAILBODY = &GET_BUFFER_FROM_FILE("$DIR/footer.txt");
#余計なヘッダを削除
$HEADER_ADD_HOOK = q{
&DELETE_FIELD('X-Original-To');
&DELETE_FIELD('Delivered-To');
&DELETE_FIELD('Received');
&DELETE_FIELD('X-Mail-Count');
&DELETE_FIELD('X-ML-Info');
&DELETE_FIELD('X-MLServer');
&DELETE_FIELD('List-Id');
&DELETE_FIELD('List-Software');
&DELETE_FIELD('List-Post');
&DELETE_FIELD('List-Owner');
&DELETE_FIELD('List-Help');
&DELETE_FIELD('List-Unsubscribe');
&DELETE_FIELD('Disposition-Notification-To');
&DELETE_FIELD('X-Confirm-Reading-To');
};
#Fromを"送信者名 <メーリングリストアドレス>"
#Reply-toをメーリングリストアドレス
#メール本文にヘッダとフッタを付加
$SMTP_OPEN_HOOK = q%
use Jcode;
my $tmpvar_From = &MimeDecode($Envelope{'h:From:'});
jcode(\$tmpvar_From)->utf8;
$tmpvar_From =~ s/\<*\s*([0-9A-Za-z_!#\$\%&*+\-\/=\?^_{|}\~.]+@[0-9,A-Z,a-z][0-9,a-z,A-Z,_,.,-]*)\s*\>*//;
jcode(\$tmpvar_From)->jis;
$tmpvar_From = &MimeEncode($tmpvar_From);
$Envelope{'fh:from:'} = $tmpvar_From . " <" . $MAIL_LIST . ">";
$Envelope{'fh:reply-to:'} = $MAIL_LIST;
$e{'Body'} = $PREAMBLE_MAILBODY. $e{'Body'} .$TRAILER_MAILBODY;
%;
&ADD_CONTENT_HANDLER('multipart/.*', 'text/plain', 'allow');
&ADD_CONTENT_HANDLER('multipart/.*', 'text/html', 'strip');
&ADD_CONTENT_HANDLER('multipart/.*', '.*/.*', 'strip+notice');
&ADD_CONTENT_HANDLER('text/plain', '.*/.*', 'allow');
&ADD_CONTENT_HANDLER('!MIME', '.*/.*', 'allow');
この記事にはトラックバック・コメントがありません。
コメントは投稿者の責任においてなされるものであり,サイト管理者は責任を負いません。