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


Welcome to the Monastery
	PerlMonks

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

by jeffenstein (Hermit)

on Sep 10, 2020 at 15:51 UTC ( [id://11121560]=note: print w/replies, xml )

Need Help??

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

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

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]

In Section Seekers of Perl Wisdom