如何用RDCOMClient将ggplot内嵌到Outlook邮件正文而非附件？

我之前也踩过同样的坑！用RDCOMClient把ggplot图表内嵌到Outlook邮件正文里，你提到的RMarkdown生成base64图片不被Outlook支持的情况太常见了，换用本地图片+Content ID关联的方式就能解决，下面是亲测有效的实现步骤：

步骤1：生成并保存ggplot图表到本地 #

首先把你的ggplot图保存成本地PNG文件，注意要用绝对路径，不然Outlook找不到文件：

library(ggplot2)
library(RDCOMClient)

# 生成示例ggplot图表
sample_plot <- ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point(color = "blue") +
  labs(title = "车辆重量 vs 油耗")

# 保存到临时目录（也可以指定自定义路径）
img_path <- file.path(tempdir(), "embedded_plot.png")
ggsave(img_path, plot = sample_plot, width = 6, height = 4, dpi = 120)

步骤2：创建Outlook邮件并添加内嵌附件 #

接下来初始化Outlook，添加图片作为附件，关键是要给附件设置Content ID（cid），这样HTML正文才能关联到它：

# 启动Outlook应用
outlook <- COMCreate("Outlook.Application")
mail <- outlook$CreateItem(0)  # 0代表新建邮件

# 设置邮件基础信息
mail[["To"]] <- "your-recipient@example.com"
mail[["Subject"]] <- "内嵌ggplot图表测试"

# 添加图片附件，并标记为内嵌
attachment <- mail[["Attachments"]]$Add(img_path)
# 给附件设置唯一的Content ID
cid_name <- "plot_001"
attachment[["PropertyAccessor"]]$SetProperty(
  "http://schemas.microsoft.com/mapi/proptag/0x3712001E",
  cid_name
)

步骤3：构建HTML正文引用内嵌图片 #

最后在HTMLBody里用cid:前缀引用刚才设置的Content ID，就能把图片内嵌到正文里了：

# 构建HTML内容
mail_html <- paste0(
  "<html><body>",
  "<h3>您好，这是本次的分析图表：</h3>",
  "<p>以下是车辆重量与油耗的关系图：</p>",
  "<img src='cid:", cid_name, "' alt='重量vs油耗图表' style='max-width: 600px;'>",
  "<p>如有疑问请随时联系~</p>",
  "</body></html>"
)

# 给邮件设置HTML正文
mail[["HTMLBody"]] <- mail_html

# 显示邮件（测试用，确认没问题后可以改成mail$Send()直接发送）
mail$Display()

# 可选：发送后删除临时图片文件
# file.remove(img_path)

关键注意点 #

• 绝对路径：一定要用绝对路径保存图片，否则Outlook无法读取附件
• 唯一CID：如果内嵌多张图片，每个附件要设置不同的cid名称，避免冲突
• 避免base64：Outlook对HTML中的base64图片支持非常有限，尤其是旧版本，用cid关联本地附件是最稳定的方案

内容的提问来源于stack exchange，提问作者Daniel