Here is my attempt to add a section to embed the picture in the body of the email. Unfortunately, it does not work. The email arrives with the raw base64 data displayed.

##############################################################
# Embed JPG image in email body.
# Note: This does NOT work.
##############################################################
$smtp->datasend("MIME-Version: 1.0\n");
$smtp->datasend("Content-Type: text/html; boundary=$boundary\n");
$smtp->datasend("Content-Transfer-Encoding: base64\n");
$smtp->datasend("Content-Disposition: inline\n");
$smtp->datasend("\n");
$smtp->datasend("<body><img alt=\"My Picture\" img src=\"");
open(my $fh2, '<', $pic) || die("Could not open Jpg file!");
   binmode($fh2);
   local $/=undef;
   while (read($fh2, my $chunk, 72*57)) {
      my $buf = &encode_base64( $chunk );
      $smtp->datasend($buf);
   }
close($fh2);
$smtp->datasend("\"></body>");

[download]

In the mail header, you claim to encode the entire mail as base64, but you send it in plain text. That won't work.

A little bit later, you use a base64 encoded file as URL of that file in an IMG tag. Of course, that also won't work. For an image URL containing the image instead of pointing to it, use a data URI. You would at least need to prefix the bas64 encoded image with "data:image/jpeg;base64,".

Note that several HTML viewers have size limits on data URIs, others don't accept them at all.

The RFC way of sending HTML mails with images is to append the image to the mail, give it a CID, and use the CID to as the URI of the image in the HTML part. See RFC2111.

MIME::Lite (yes, I know this will trigger tons of "do not use that module" warnings) has a quite easy way to do that:

$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]

(Copied from "Send an HTML document... with images included!" in the MIME::Lite pod)

Alexander

--
Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)

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

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.