Email: MIME, отправка в нескольких частях с приложением? - PullRequest
Новая
       33

Email: MIME, отправка в нескольких частях с приложением?

1 голос
/ 19 марта 2020

Это сводит меня с ума. Я, должно быть, скучаю по чему-то глупому. У меня есть следующий подпункт: 

sub send_email {

    use MIME::Lite;
    use MIME::Base64;
    use Encode;

    my $to = 'support@foobar.co.uk'; #$rec{'Email'};

    my $from = $admin_email;
    my $subject = "webform $html_title";
    my $html = "some test <b>message</b> foo bar test";
    my $text = "some test message some plain version";

    # $html = decode( 'utf-8', $html );
    # $text = decode( 'utf-8', $text );

    my ($status,$attach,$newfile);

    use Email::MIME;
    use Email::Address::XS;
    use Email::Sender::Simple qw(sendmail);
    use IO::All;
    use GT::MIMETypes;

# multipart message
    my @alternative_parts = (
        Email::MIME->create(
            body_str => $text,
            attributes => {
                encoding => 'quoted-printable',
                content_type => "text/plain",
                disposition  => "inline",
                charset      => "UTF-8",
            }
        ),
        Email::MIME->create(
            body_str => $html,
            attributes => {
                encoding => 'quoted-printable',
                charset  => "UTF-8",
                content_type => "text/html",
                disposition  => "inline",
            }
        )
    );

    my @attachment_parts;

    my $attach = "/path/to/file/tables.cgi";

    if ($attach) {

        my $filename = (reverse split /\//, $attach)[0]; # also change
+d in body => below
        my $content;

        my $mime = GT::MIMETypes::guess_type($filename);

        push @parts, Email::MIME->create(
            attributes => {
                filename     => $filename,
                content_type => $mime,
                encoding     => "base64",
                name         => $filename,
                attachment   => "attachment"
            },
            body => io( $attach )->binary->all,
        )
    }

    my $email = Email::MIME->create(
        header_str => [
            From => $from,
            To => [ $to ],
            Subject => $subject
        ],
        parts => \@parts,
        attributes => {
            encoding => 'base64',
            charset  => "UTF-8",
            content_type => "multipart/multipart",
            #disposition  => "inline",
        }
    );

    sendmail($email->as_string);

    print "EMAIL: " . $email->as_string. "\n\n"; # print for andy

}

Что нужно сделать, это включить как простой текст, так и HTML тело письма. Затем также прикрепляется файл (.cgi только для тестирования:)).

В то время как электронные письма хорошо проходят через Gmail - он глючит в Outlook / Thunderbird. У меня такое ощущение, что я разбиваю «части». Насколько я понимаю, вам нужна «основная» часть тела, которую можно разбить на простой текст и HTML версия, а затем вложение как еще одна часть основной «части». Я не совсем уверен, как этого добиться?

Вот как получается "debug_structure": 

Structure: + multipart/multipart; boundary="15846317930.c94ff7.26547"
     + text/plain; charset="UTF-8"
     + text/html; charset="UTF-8"
     + text/plain; attachment="attachment"; name="tables.cgi"

ОБНОВЛЕНИЕ: Как и предполагалось, я ' m сейчас пробует вложенные части: 

# multipart message
    my @message_parts = (
        Email::MIME->create(
            body_str => $text,
            attributes => {
                encoding => 'quoted-printable',
                content_type => "text/plain",
                disposition  => "inline",
                charset      => "UTF-8",
            }
        ),
        Email::MIME->create(
            body_str => $html,
            attributes => {
                encoding => 'quoted-printable',
                charset  => "UTF-8",
                content_type => "text/html",
                disposition  => "inline",
            }
        )
    );


    my @all_parts;
    push @all_parts, Email::MIME->create(
        parts => [\@message_parts], # add all the message parts into here...
        attributes => {
            content_type => "multipart/alternative"
        }
    );


    my $attach = "/home/user/web/public_html/cgi-bin/admin/tables.cgi";

    if ($attach) {

        my $filename = (reverse split /\//, $attach)[0]; # also changed in body => below

        # better to use GT::MIMETypes if you have it with Fileman (pretty sure you do?)
        my $mime = GT::MIMETypes::guess_type($filename);

        push @all_parts, Email::MIME->create(
            attributes => {
                filename     => $filename,
                content_type => $mime,
                encoding     => "base64",
                name         => $filename
            },
            body => io( $attach )->binary->all,
        )
    }


    my $email = Email::MIME->create(
        header_str => [
            From => $from,
            To => [ $to ],
            Subject => $subject
        ],
        parts => [\@all_parts],
        attributes => {
            encoding => 'base64',
            content_type => "multipart/mixed"
        }
    );

    print qq|Structure: | . $email->debug_structure. "\n\n";

Но я получаю сообщение об ошибке:

Невозможно вызвать метод "as_string" для неподтвержденной ссылки в / usr / local / share / perl /5.22.1/Email/MIME.pm Строка 771.

Строка 771 находится в parts_set в Email :: MIME - значит, я что-то неправильно настраиваю?

ОБНОВЛЕНИЕ 2: Спасибо Штеффен за вашу помощь! Итак, это окончательный рабочий код с правильной структурой: 

use Email::MIME;
use Email::Address::XS;
use Email::Sender::Simple qw(sendmail);
use IO::All;
use GT::MIMETypes;

my $to = 'support@foo.co.uk'; #$rec{'Email'};

my $from = $admin_email;
my $subject = "some title";
my $html = "some test <b>message</b> foo bar test";
my $text = "some test message some plain version";
$html = decode( 'utf-8', $html );
$text = decode( 'utf-8', $text );

# multipart message
my @message_parts = (
    Email::MIME->create(
        body_str => $text,
        attributes => {
            encoding => 'quoted-printable',
            content_type => "text/plain",
            disposition  => "inline",
            charset      => "UTF-8",
        }
    ),
    Email::MIME->create(
        body_str => $html,
        attributes => {
            encoding => 'quoted-printable',
            charset  => "UTF-8",
            content_type => "text/html",
            disposition  => "inline",
        }
    )
);


my @all_parts;
push @all_parts, Email::MIME->create(
    parts => \@message_parts, # add all the message parts into here...
    attributes => {
        content_type => "multipart/alternative"
    }
);


my $attach = "/home/user/web/foo.co.uk/public_html/cgi-bin/admin/tables.cgi";

if ($attach) {

    my $filename = (reverse split /\//, $attach)[0]; # also changed in body => below

    # better to use GT::MIMETypes if you have it with Fileman (pretty sure you do?)
    my $mime = "plain/text";  # hard coded in this example, but you want to set the correct type for the attachment type

    push @all_parts, Email::MIME->create(
        attributes => {
            filename     => $filename,
            content_type => $mime,
            encoding     => "base64",
            name         => $filename
        },
        body => io( $attach )->binary->all,
    )
}


my $email = Email::MIME->create(
    header_str => [
        From => $from,
        To => [ $to ],
        Subject => $subject
    ],
    parts => \@all_parts,
    attributes => {
        encoding => 'base64',
        content_type => "multipart/mixed"
    }
);

print qq|Structure: | . $email->debug_structure. "\n\n";

sendmail($email->as_string);

Структура теперь выглядит правильно как: 

Structure: + multipart/mixed; boundary="15846944601.d6aF.12245"
     + multipart/alternative; boundary="15846944600.d79D2A2.12245"
          + text/plain; charset="UTF-8"
          + text/html; charset="UTF-8"
     + text/plain; name="tables.cgi"

1 Ответ

3 голосов
/ 19 марта 2020

Нет такой вещи как multipart/multipart, которую вы используете. Вместо этого ваша почта должна иметь следующую структуру: 

 multipart/mixed
 |- multipart/alternative   << mail client will choose which of the parts to display
 |  | text/plain            << the mail as plain text
 |  | text/html             << the mail as HTML
 |- text/plain              << the attachment

Что касается вложения, может быть полезно выбрать content-type, который лучше соответствует типу вложения. Если вложение представляет собой обычный текст, то text/plain может подойти, но если это изображение, офисный документ, архив ... следует использовать другое content-type.

Кроме этого ни encoding, ни charset и disposition не имеют смысла в многочастном определении. Они относятся только к конечным деталям (text/plain et c), а не к деталям контейнера (multipart/whatever) 

    attributes => {
        encoding => 'base64',
        charset  => "UTF-8",
        content_type => "multipart/multipart",
        #disposition  => "inline",
    }
...