Question

我正在尝试编写一个小的Perl脚本，该脚本发送带附件的纯文本/ html电子邮件：

      use Encode();
      use MIME::Entity();
      my $msg = MIME::Entity->build(
        From        => '"' . Encode::encode( 'MIME-Header', 'Any User' ) . '" <any.user@example.test>',
        To      => '"' . Encode::encode( 'MIME-Header', 'Some User' ) . '" <some.user@example.test>',
        Subject     => Encode::encode( 'MIME-Header', 'Multipart alternative with attachments' ),
        Type        => 'multipart/alternative',
      );
      my $plain = $msg->attach(
        Type            => 'text/plain; charset=UTF-8',
        Data            => [ "*Multipart alternative with attachments*\n\nHere comes the plain text." ],
      );
      my $fancy = $msg->attach( Type => 'multipart/related' );
      $fancy->attach(
        Type            => 'text/html; charset=UTF-8',
        Data            => [ "<html>\n\t<body>\n\t\t<h1>Multipart alternative with attachments</h1>\n\t\t<p>Here comes the fancy text.</p>\n\t</body>\n</html>" ],
      );
      $fancy->attach(
        Type            => 'text/plain; charset=UTF-8',
        Disposition     => 'attachment',
        Filename        => 'test.txt',
        Data            => [ "*Multipart alternative with attachments*\n\nHere comes the attachment." ],
      );

我收到以下MIME源代码：

      Content-Type: multipart/alternative; boundary="----------=_1334231022-8218-0"
      Content-Transfer-Encoding: binary
      MIME-Version: 1.0
      X-Mailer: MIME-tools 5.502 (Entity 5.502)
      From: "Any User" <any.user@example.test>
      To: "Some User" <some.user@example.test>
      Subject: Multipart alternative with attachments

      This is a multi-part message in MIME format...

      ------------=_1334231022-8218-0
      Content-Type: text/plain; charset=UTF-8
      Content-Disposition: inline
      Content-Transfer-Encoding: binary

      *Multipart alternative with attachments*

      Here comes the plain text.
      ------------=_1334231022-8218-0
      Content-Type: multipart/related; boundary="----------=_1334231022-8218-1"
      Content-Transfer-Encoding: binary

      This is a multi-part message in MIME format...

      ------------=_1334231022-8218-1
      Content-Type: text/html; charset=UTF-8
      Content-Disposition: inline
      Content-Transfer-Encoding: binary

      <html>
              <body>
                      <h1>Multipart alternative with attachments</h1>
                      <p>Here comes the fancy text.</p>
              </body>
      </html>
      ------------=_1334231022-8218-1
      Content-Type: text/plain; charset=UTF-8; name="test.txt"
      Content-Disposition: attachment; filename="test.txt"
      Content-Transfer-Encoding: binary

      *Multipart alternative with attachments*

      Here comes the attachment.
      ------------=_1334231022-8218-1--

      ------------=_1334231022-8218-0--

如果我在The Bat内查看电子邮件，则会正确显示普通版本和html版本。在Mozilla Thunderbird 11.0.1中，普通版本不会显示，只会缩小html版本。

我的逻辑中是否有错误或者Thunderbird失败了？

Answer 1

您不需要$fancy，将所有内容添加到$msg。

Content-Transfer-Encoding标头更好base64或quoted-printable。它更加万无一失。

Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: base64

Content-Type: text/html; charset=UTF-8
Content-Transfer-Encoding: quoted-printable

电子邮件与纯文本部分，HTML部分和附件

1 个答案: