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

Thank you for your reply afoken. I would like very much to use a higher level module than "Net::SMTPS" (even the deprecated MIME::Lite), but "Net::SMTPS" is the only module I have found with the options that allow me to connect to the Outlook web email server.

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

  • Comment on Re^3: Send Email With Picture Embedded in Body of Email

Replies are listed 'Best First'.
Re^4: Send Email With Picture Embedded in Body of Email
by jeffenstein (Hermit) on Sep 10, 2020 at 15:51 UTC

    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]
[reply]
[d/l]
[select]
      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]

In Section Seekers of Perl Wisdom