comment on

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

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


good chemistry is complicated, and a little bit messy -LW
	PerlMonks