そのため、VERP を正しく実行しようとしているスクリプトがあります。メールサーバーとして MIME::Lite と postfix を使用しています。コードは次のとおりです。
use strict;
use MIME::Lite;
use LWP::Simple;
use Mail::Verp;
my $email = 'someuser@somesite.com';
Mail::Verp->separator('+');
my $verp_email = Mail::Verp->encode('root@somesite.net', $email);
my $content = '<html><body>Hi!</body></html>';
my $msg = MIME::Lite->new(
Subject => 'Hi',
From => 'root@somesite.net',
To => $email,
'Return-Path' => $verp_email,
Type => 'text/html',
Data => $content
);
$msg->send('smtp', 'XXX.XXX.XXX.XXX');
メッセージがバウンスされた場合、postfix はそれを root@somesite.net メール受信ボックスにルーティングしません。バウンスの送信者が $verp_email 値になるようにメッセージをルーティングするにはどうすればよいですか?
ファイルまたはデータベースに送信できるように、メールアドレスが含まれるすべてのバウンスメールのログを作成しようとしています。
誰かがこれで私を正しい方向に向けることができれば、私は非常に感謝しています. ありがとう。