如何在Microsoft Outlook邮件中渲染并嵌入Rmarkdown内容？

一、emayili在Outlook中格式错乱的修复 #

Outlook依赖Word引擎渲染HTML，对外部/头部CSS支持极差，需针对性调整：

• 强制使用内联样式：所有排版样式直接写在HTML标签内，替代依赖CSS类的写法。可借助xml2包批量给Rmarkdown生成的HTML标签添加内联样式：

library(xml2)
# 读取Rmarkdown生成的HTML文件
html_doc <- read_html("your_output.html")

# 给段落设置边距和行高
html_doc %>% 
  xml_find_all("//p") %>% 
  xml_set_attr("style", "margin: 1em 0; line-height: 1.5;")

# 修复项目符号缩进和间距
html_doc %>% 
  xml_find_all("//ul") %>% 
  xml_set_attr("style", "margin-left: 2em; padding-left: 0;")
html_doc %>% 
  xml_find_all("//li") %>% 
  xml_set_attr("style", "margin: 0.5em 0;")

# 转换为可嵌入邮件的HTML文本
final_html <- as.character(html_doc)

• 图表内联处理：将ggplot生成的图片转为Base64编码直接嵌入HTML，避免路径依赖。在Rmarkdown中用以下方式插入图表：

library(htmltools)
library(ggplot2)

my_plot <- ggplot(mtcars, aes(mpg, wt)) + geom_point()
# 保存图表为临时文件后转为Base64
ggsave("temp_plot.png", my_plot)
img_tag <- img(src = knitr::image_uri("temp_plot.png"), style = "display: block; margin: 1em auto;")
# 在Rmarkdown中输出该标签
img_tag

二、blastula图表无法嵌入正文的解决 #

blastula本身支持内联图表，问题多源于使用方式不当：

• 使用add_ggplot()直接嵌入：这是blastula专为ggplot设计的内联函数，自动处理Base64编码：

library(blastula)
library(ggplot2)

# 生成ggplot对象
sales_plot <- ggplot(data = sales_data, aes(x = date, y = revenue)) + geom_line()

# 构建邮件正文
email_content <- compose_email(
  body = md(
    "### 月度销售数据
    以下是本月销售趋势图表：
    {add_ggplot(sales_plot, width = 6, height = 4, dpi = 150)}
    "
  )
)

# 发送邮件（示例用环境变量存储凭据）
email_content %>% 
  smtp_send(
    to = "recipient@outlook.com",
    from = "your_email@domain.com",
    subject = "月度销售报告",
    credentials = creds_envvar(user = "EMAIL_USER", pass = "EMAIL_PASS")
  )

• 本地图片用add_image()嵌入：如果是已保存的本地图片，不要用include_graphics()，改用add_image()：

add_image("local_plot.png", width = 5, height = 3)

• 更新blastula版本：旧版本存在图表嵌入bug，执行install.packages("blastula")更新至最新版。

通用注意事项 #

• 避免使用复杂CSS布局（如flex、grid），Outlook不支持，复杂排版用HTML表格实现：

<table style="width: 100%; border-collapse: collapse;">
  <tr>
    <td style="width: 50%; padding: 1em;">左列内容</td>
    <td style="width: 50%; padding: 1em;">右列内容</td>
  </tr>
</table>

• 测试时先将生成的HTML保存为本地文件，用Outlook打开预览，确认样式无误后再发送。

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