☰

在 sendmail 中更改消息 ID

tag-icon • tag-icon email sendmail
在 sendmail 中更改消息 ID

我们已确定一个外部软件会生成具有相同Message-ID字段的电子邮件。该软件会使用sendmail该字段执行实际发送操作。

由于我们不太容易改变外部软件来修复这个错误，我想知道是否可以sendmail忽略给定的Message-ID并生成一个新的？

额外信息：

我发现了一些文件证实了我的担忧：

标头标志仅控制标头插入。如果在输入中收到标头，则无论标志设置如何，它都会传递到输出。

看http://docstore.mik.ua/orelly/networking/tcpip/ch10_05.htm，第 10.5.7 节 定义邮件头

答案1

如果您愿意使用不同的 MTA 或至少是中间 MTA，请查看 qpsmtpd。我目前使用 qpsmtpd 将我们使用的一些旧版应用程序传入的 uuencoded 电子邮件转换为 MIME。

这是我使用的，它是 tnef2mime 插件的修改版本（所以请忽略任何多余的内容和对 tnef2mime 的引用）。可以轻松修改它以删除现有的消息 ID 标头并添加一个新的。

#!/usr/bin/perl -wT

use MIME::Parser;
use MIME::Entity;
use MIME::Head;
use File::MMagic;
use Convert::TNEF;

my $parser;
my $ent;
my $tmpdir='/var/spool/qpsmtpd';
my $count=0;
my $foundtnef=0;
my (@attachments, @blocked, @tnefs);

sub register {
  my ($self, $qp, %arg) = @_;
  $self->register_hook("data_post", "tnef2mime");
}

sub tnef2mime ( $$ )
        {
        my ($self, $transaction) = @_;
        # new Parser Object
        $parser = new MIME::Parser;
        # temp output directory
        $parser->output_under( $tmpdir );
        $parser->extract_uuencode(1);

        # read message body
        open BFN, $transaction->body_filename();
        $ent = $parser->parse(\*BFN);
        close BFN;

        my $founduu = $ent->parts && !$transaction->header->get('MIME-Version');

        if( $founduu )
                {
                $transaction->header->add('MIME-Version', "1.0" );
                my $xac = "UUENCODE -> MIME";
                $self->log(LOGDEBUG, "uuencoded attachment converted to MIME" );
                $transaction->header->add('X-TNEF2MIME-Plugin', $xac );

                # fix content-type header
                $transaction->header->delete('Content-Type');
                $transaction->header->add('Content-Type', $ent->head->get('Content-Type'));

                # write converted message body
                open BFN, ">" . $transaction->body_filename();
                $ent->print(\*BFN);
                close BFN;

                }


        my $output_dir = $parser->output_dir;

        opendir( DIR, $output_dir ) or die "Could not open temporary output dir $output_dir: $!\n";
        while( defined( my $file = readdir( DIR ) ) )
                {
                next if $file =~ /^\.\.?$/;
                $file =~ s/(^.*$)//;
                $file = $1;
                unlink( "$output_dir/$file" );
                }
        closedir( DIR );
        rmdir( $output_dir );

        return DECLINED;
        }

相关内容