Question

当我使用Email::MIME使用此脚本发送附件时，为什么附件（约110KiB）会分成10个部分（约11KiB）？

#!/usr/bin/env perl
use warnings; use strict;

use Email::Sender::Transport::SMTP::TLS; 
my $mailer = Email::Sender::Transport::SMTP::TLS->new(
    host => 'smtp.my.host',
    port => 587,
    username => 'username',
    password => 'password',
);

use Email::MIME::Creator;
use IO::All;
my @parts = (    
    Email::MIME->create(
    attributes => {
        content_type => 'text/plain',
        disposition  => 'inline',
        encoding     => 'quoted-printable',
        charset      => 'UTF-8',
    },
    body => "Hello there!\n\nHow are you?",
    ),
    Email::MIME->create(
    attributes => {
        filename     => "test.jpg",
        content_type => "image/jpeg",
        disposition  => 'attachment',
        encoding     => "base64",
        name         => "test.jpg",
    },
    body => io( "test.jpg" )->all,
    ),
);
my $email = Email::MIME->create(
    header => [ From => 'my@address', To => 'your@address', Subject => 'subject', ],
    parts  => [ @parts ],
);

eval {
    $mailer->send( $email, {
        from => 'my@address',
        to   => [ 'your@address' ],
    } );
};
die "Error sending email: $@" if $@;

Answer 1

我在Perl脚本中使用MIME::Lite和Net::SMTP::TLS（使用TLS而不是SSL，因为连接到smtp.gmail.com无法使用SSL）来发送带有电子表格附件的电子邮件通过Gmail帐户，电子表格附件被分解为多个10kb文件。

解决方案是将Net :: SMTP :: TLS替换为Net::SMTP::TLS::ButMaintained，这是我最初没见过的。较新的TLS模块运行良好。

Answer 2

我可以为您提供一种解决方法：使用MIME :: Lite

为什么Email :: MIME会拆分我的附件？

2 个答案: