使用Microsoft365R包嵌入图片至邮件失败，如何解决？

第一种方式失败原因 #

1. HTML语法错误：你在<img>标签的src和alt属性里用了反引号，这是Markdown语法，HTML属性应该用双引号或单引号包裹，反引号会导致Outlook无法正确解析图片路径。
2. 外部图片安全限制：企业版Outlook默认会阻止加载外部网络图片，就算路径正确，也可能因为安全策略被拦截，无法显示。

第二种方式失败原因 #

add_image()方法默认是将图片作为附件添加到邮件中，而非嵌入HTML正文。直接调用该方法不会自动把图片插入到正文里，所以你只能在附件里看到图片，正文里不会显示。另外，该方法通常需要本地文件路径，直接传远程URL可能无法正确识别处理。

正确实现邮件嵌入图片的方法 #

可靠的方式是先将图片下载到本地，通过**内容ID（CID）**关联图片和HTML正文，确保图片嵌入到邮件正文中而非仅作为附件。代码示例如下：

library(Microsoft365R)
library(httr)

emails <- c("myemail@example.com")

# 下载远程图片到临时文件
img_url <- "https://raw.githubusercontent.com/iagocnunes/test/main/002.png"
temp_file <- tempfile(fileext = ".png")
GET(img_url, write_disk(temp_file, overwrite = TRUE))

for(i in emails){
  my_outlook <- get_business_outlook()
  # 创建邮件对象
  my_email <- my_outlook$create_email()$
    # 设置HTML正文，引用cid:my_image
    set_body("<p>这是嵌入的图片：<br><img src='cid:my_image' alt='测试图片'></p>", content_type = "html")$
    # 添加图片并指定cid，与正文里的cid对应
    add_image(temp_file, content_id = "my_image")$
    set_subject("Test")$
    set_recipients(to = i)$
    send()
}

# 删除临时文件
file.remove(temp_file)

关键说明 #

• 用httr::GET下载远程图片到本地临时文件，确保add_image能正确读取。
• add_image的content_id参数要和HTML正文中img标签的src（格式为cid:xxx）完全对应，这样Outlook才能将附件里的图片嵌入到正文指定位置。
• 这种方式不受外部图片拦截限制，因为图片是作为邮件的内嵌资源发送的。

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