Re^2: Email::Stuffer->attach cannot set content-id header?

Hi, thanks for both replies. After a bit more playing I'm inclined to agree with McA. Looking at an email I'm trying to emulate it is indeed multipart/related.

Looks like I'll need to write something lower level.

Thanks again
Adrian

Comment on Re^2: Email::Stuffer->attach cannot set content-id header?

Replies are listed 'Best First'.
Re^3: Email::Stuffer->attach cannot set content-id header? by McA (Priest) on Mar 10, 2014 at 17:25 UTC
Hi Adrian, have a look at the following snippet whether it is helpful for your solution: #!/usr/bin/env perl use strict; use warnings; use 5.010; use Email::MIME; use MIME::Base64; use File::Slurp; my $html = <<EOF; <html> <head> <title>Testmail</title> </head> <body> <p>This is a test html mail with an inline graphic.<br/> <img src="cid:logo" alt="Logo" width="158px" height="70px" />< +/p> </body> </html> EOF # read the file my $filename = 'logo.png'; # take filename of a small 158x70 png my $image = read_file($filename, binmode => ':raw'); my $image_encoded = encode_base64($image); my $mail_part = Email::MIME->create( attributes => { content_type => "text/html", charset => "UTF-8", encoding => "quoted-printable", }, body_str => $html, ); my $jpeg_part = Email::MIME->create( header_str => [ 'Content-ID' => '<logo>', 'Content-Disposition' => 'inline', ], attributes => { content_type => "image/png", encoding => "base64", }, body => $image, ); my $mail = Email::MIME->create( header_str => [ 'To' => 'yourmail@yourdomain.de', 'From' => 'McA@perlmonks.org', 'Subject' => 'Testmail with inline graphic', ], attributes => { content_type => "multipart/related", }, parts => [ $mail_part, $jpeg_part, ], ); say $mail->as_string; [download] Best regards McA	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Email::Stuffer->attach cannot set content-id header?
by McA (Priest) on Mar 10, 2014 at 17:25 UTC

Hi Adrian,

have a look at the following snippet whether it is helpful for your solution:

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

use Email::MIME;
use MIME::Base64;
use File::Slurp;

my $html = <<EOF;
<html>
    <head>
        <title>Testmail</title>
    </head>
    <body>
        <p>This is a test html mail with an inline graphic.<br/>
        <img src="cid:logo" alt="Logo" width="158px" height="70px" /><
+/p>
    </body>
</html>
EOF

# read the file
my $filename = 'logo.png';  # take filename of a small 158x70 png
my $image = read_file($filename, binmode => ':raw');
my $image_encoded = encode_base64($image);

my $mail_part = Email::MIME->create(
    attributes => {
        content_type => "text/html",
        charset      => "UTF-8",
        encoding     => "quoted-printable",
    },
    body_str => $html,
);

my $jpeg_part = Email::MIME->create(
    header_str => [
        'Content-ID' => '<logo>',
        'Content-Disposition' => 'inline',
    ],
    attributes => {
        content_type => "image/png",
        encoding     => "base64",
    },
    body => $image,
);

my $mail = Email::MIME->create(
    header_str => [
        'To' => 'yourmail@yourdomain.de',
        'From' => 'McA@perlmonks.org',
        'Subject' => 'Testmail with inline graphic',
    ],
    attributes => {
        content_type => "multipart/related",
    },
    parts => [
        $mail_part,
        $jpeg_part,
    ],
);

say $mail->as_string;
[download]

Best regards
McA

[reply]
[d/l]