时间戳

首页 > 解决方案 > RDCOMClient (Outlook) - ggplot

r - RDCOMClient (Outlook) - ggplot

问题描述

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

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

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

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

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

编辑：

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

标签： rggplot2rdcomclient

解决方案

您可以使用内容 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)

推荐阅读