2

I have a code to send an image inline in body of email using sendmailR. However after receiving the email it does not contain the image. It shows the error : The linked image cannot be displayed.The file may have been moved,renamed or deleted. Below is the code

library(sendmailR)
image<-"image.png"
body<-sendmailR::mime_part("<html><p>This is a picture.</p> 
<img src='image.png' >
<p> Image is:</p>")
body[["headers"]][["Content-Type"]] <- "text/html"

 sender <- "sender email"
  recipients <- "receiver email"
  subject <- "Test Email"

 sendmailR:: sendmail(sender, recipients, subject, list(body),control=list(smtpServer="server address"))

The image is in the same folder as the rmd file. Thank you.

sk8
  • 170
  • 1
  • 9

1 Answers1

2

I had the same question and I finally got it. Using your code should be something like:

library(sendmailR)
attachmentPath <-paste(getwd(),"/image.png",sep="")
attachmentObject <-mime_part(x=attachmentPath,name="plot.png")
msg <- mime_part('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0
Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head>
  <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  <meta name="viewport" content="width=device-width, initial-scale=1.0"/>
 
  <style type="text/css">
  </style>
</head>
<body>
<h1>HTML email</h1>

<img src="cid:plot.png" >

</body>
</html>')
msg[["headers"]][["Content-Type"]] <- "text/html"
body    <- list(msg,attachmentObject)

 sender <- "sender email"
  recipients <- "receiver email"
  subject <- "Test Email"

 sendmailR:: sendmail(sender, recipients, subject, body,control=list(smtpServer="server address"))

as you can see you must reference the image using cid

Tarek Peña
  • 21
  • 2