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

Have you tried building the message with MIME::Lite, and converting it to a string to send with Net::SMTPS?

Borrowing from afoken's post:

$msg = MIME::Lite->new(
     To      =>'you@yourhost.com',
     Subject =>'HTML with in-line images!',
     Type    =>'multipart/related'
);
$msg->attach(
    Type => 'text/html',
    Data => qq{
        <body>
            Here's <i>my</i> image:
            <img src="cid:myimage.gif">
        </body>
    },
);
$msg->attach(
    Type => 'image/gif',
    Id   => 'myimage.gif',
    Path => '/path/to/somefile.gif',
);
$msg->send();
[download]

But replacing $msg->send(); with $smtp->datasend($msg->as_string).

In practice it might be more complicated since you will have to check for lines with a single period (untested):

$smtp->datasend(
  join "\n",
    map { $_ eq "." ? ".." : $_ }
    split "\n",
    $msg->as_string
);
[download]

Comment on Re^4: Send Email With Picture Embedded in Body of Email Select or Download Code

Replies are listed 'Best First'.
Re^5: Send Email With Picture Embedded in Body of Email by roho (Bishop) on Sep 10, 2020 at 20:58 UTC
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."	[reply] [d/l]

Replies are listed 'Best First'.

Re^5: Send Email With Picture Embedded in Body of Email
by roho (Bishop) on Sep 10, 2020 at 20:58 UTC

jeffenstein

##############################################################
# 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."

[reply]
[d/l]