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


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