Re^5: Send Email With Picture Embedded in Body of Email


Perl: the Markov chain saw
	PerlMonks

Re^5: Send Email With Picture Embedded in Body of Email

by roho (Bishop)

on Sep 10, 2020 at 20:58 UTC ( [id://11121578]=note: print w/replies, xml )

Need Help??

in reply to Re^4: Send Email With Picture Embedded in Body of Email
in thread Send Email With Picture Embedded in Body of Email (SOLVED)

Thank you jeffenstein! That worked perfectly, and it worked without the need of the "join, map, split" code. My final version of the code segment for an embedded image in the email body (while still using "Net::SMTPS") is shown below:

##############################################################
# Email - body (embedded image)
##############################################################
$smtp->datasend("--$boundary\n");
my $msg = MIME::Lite->new(
     To      =>'tester@hotmail.com',
     Subject =>'HTML with Embedded Image',
     Type    =>'multipart/related'
);
$msg->attach(
    Type => 'text/html',
    Data => qq{
        <body>
            <img src="cid:mypicture">
        </body>
    },
);
$msg->attach(
    Type => 'image/jpeg',
    Id   => 'mypicture',
    Path => 'test.jpg',
);
$smtp->datasend( $msg->as_string );
[download]

"It's not how hard you work, it's how much you get done."