如何使用gmailR在邮件正文中发送data.frame数据？

你的核心实现思路是完全正确的！用htmlTable把结构化的data.frame转成HTML表格，再拼到邮件正文里，配合gmailR发送HTML格式邮件，这确实是在邮件中展示数据的靠谱方案。咱们来具体梳理下：

先确认：你的代码核心逻辑没问题 #

• 用htmlTable(data, rnames=FALSE)把数据转成HTML表格代码，这一步是对的，rnames=FALSE去掉行索引也符合常规邮件展示需求
• 把自定义文本和表格拼接成完整HTML正文，然后在mime()里设置html=TRUE，明确告诉gmailR要发送HTML格式的邮件，这个配置是正确的
• 通过use_secret_file()加载认证文件，也是gmailR官方推荐的认证方式，没问题

可以优化的几个细节 #

你的代码里有一些小冗余和可以提升的地方：

• 重复代码：你写了两次生成表格和拼接正文的代码，完全可以删掉重复的部分，只保留一次就够了
• 表格样式默认太朴素：默认生成的HTML表格没有样式，在邮件里看起来会很生硬，可以给表格加一些简单的CSS样式，让数据更易读
• 缺少错误处理：如果遇到网络问题、认证过期或者收件人地址错误，代码会直接报错，加个简单的错误捕获会更稳妥
• 变量命名有点混淆：msg变量用来存HTML表格，改成html_table这种更清晰的名字，能避免和后续变量混淆

优化后的完整代码示例 #

# 先加载需要的包
library(gmailr)
library(htmlTable)

# 加载gmailR认证文件
use_secret_file("/Users/abhishekgupta/Downloads/gmailR.json")

# 示例data.frame（替换成你自己的实际数据）
data <- data.frame(
  City = c("Mumbai", "Delhi", "Bangalore"),
  Sales = c(12000, 15000, 9500),
  Customers = c(350, 420, 280)
)

# 生成带基础样式的HTML表格
html_table <- htmlTable(
  data,
  rnames = FALSE,
  css.table = "border-collapse: collapse; width: 100%; border: 1px solid #ddd;",
  css.cell = "padding: 10px; text-align: left; border-bottom: 1px solid #ddd;"
)

# 拼接完整的HTML邮件正文
html_bod <- paste0(
  "<p>Hi Team,</p>",
  "<p>以下是城市维度的统计数据：</p>",
  html_table,
  "<p>如有疑问请随时沟通~</p>",
  "<p>Best regards,</p>"
)

# 创建并发送邮件，同时添加错误捕获
tryCatch({
  test_email <- mime(
    To = "1234@gmail.com",
    From = "1234@pharmeasy.in",
    Subject = "Data City Wise",
    body = html_bod,
    html = TRUE
  )
  send_message(test_email)
  cat("邮件发送成功！\n")
}, error = function(e) {
  cat("邮件发送失败：", e$message, "\n")
})

额外注意事项 #

• 确保已经安装了gmailr和htmlTable包，如果没装的话先运行install.packages(c("gmailr", "htmlTable"))
• 认证文件的路径要确保正确，并且对应的Google账号已经开启了Gmail API权限（如果之前没配置过，需要先在Google Cloud Console里创建项目并启用Gmail API）
• 部分邮箱服务商可能会过滤过于复杂的CSS样式，建议保持样式简洁，优先用内联样式或者简单的表格边框、间距设置
• 如果需要发送中文内容，确保你的R环境编码是UTF-8，避免出现乱码问题

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