RDCOMClient（Outlook）-ggplot

Question

我正在使用 RDCOMClient 库创建 Outlook 电子邮件。我想发送 ggplot 作为电子邮件正文中的图像（内联）， 而不是 作为附件。

我认为这可能的唯一方法是将绘图作为图像添加到 HTMLBody 属性中。我尝试了 2 种不同的方法在 html.

中添加图像

1 - 使用 RMarkdown 库，我创建了一个带有情节的 html 页面。这不起作用，因为图像被编码为 Outlook 不支持的 base64 字符串。

2 - 将 ggplot 保存到文件并手动创建一个简单的 html 例如：<html><body><img src="**path**/my_plot.png" /></body></html>。这也显示错误而不是图像。

有没有办法内联添加图像？

编辑：

第二种方法适用于本地电子邮件，但收件人的消息有错误而不是实际图像。

Answer 1

您可以附加图片并使用内容 ID ("cid") 在电子邮件正文中引用它：

library(ggplot2)
p <- ggplot(mtcars, aes(wt, mpg)) + geom_point()
ggsave(tf<-tempfile(fileext = ".png"), p, dpi = 100, width = 5, height = 5)
library(RDCOMClient)
OutApp <- COMCreate("Outlook.Application")
outMail = OutApp$CreateItem(0)
attach <- outMail[["Attachments"]]$Add(tf)
invisible(attach$PropertyAccessor()$SetProperty(
  "http://schemas.microsoft.com/mapi/proptag/0x370E001E", 
  "image/png"
))
invisible(attach$PropertyAccessor()$SetProperty(
  "http://schemas.microsoft.com/mapi/proptag/0x3712001E", 
  cid <- "myggplotimg"
))
outMail[["To"]] = "johndoe@example.com"
outMail[["Subject"]] = "ggplot image"
outMail[["HTMLbody"]] <- sprintf('<p>Here is your image:<br><img src="cid:%s"></p>', cid)
invisible(outMail$Save())
rm(outMail, attach, OutApp)

RDCOMClient（Outlook）-ggplot

RDCOMClient (Outlook) - ggplot

r

ggplot2

rdcomclient