R语言如何基于表格数据实现个性化邮件批量自动发送

准备基础数据 #

首先把学生信息整理为R数据框，和给出的表结构对应即可，示例构造代码：

student_dt <- data.frame(
  Name = c("Student 1", "Student 2", "Student 20"),
  Email = c("mail@example.com", "mail2@example.com", "mail3@example.com"),
  CODE = c(30, 20, 5),
  stringsAsFactors = FALSE
)

批量生成专属邮件正文 #

两种常用实现方式，按需选择即可：

基础R实现（无需安装额外包） #

用sprintf()做模板占位，遍历每一行数据替换姓名、CODE字段：

# 定义邮件模板，%s对应字符串类型的姓名字段，%d对应数字类型的CODE字段
mail_template <- "Hello %s,
your code is %d.

See you."

# 批量生成所有学生的邮件内容，存为列表
mail_list <- mapply(function(name, code){
  sprintf(mail_template, name, code)
}, name = student_dt$Name, code = student_dt$CODE, SIMPLIFY = FALSE)

# 用收件人邮箱给列表项命名，后续发信时直接匹配
names(mail_list) <- student_dt$Email

生成后可以直接校验内容是否正确，比如查看Student 20的邮件：

cat(mail_list[["mail3@example.com"]])
# 输出：
# Hello Student 20,
# your code is 5.
#
# See you.

glue包实现（模板写法更直观） #

如果经常做这类文本替换，可以用glue包，不需要记占位符格式，直接在模板里引用数据字段即可：

# 首次使用先安装包
# install.packages("glue")
library(glue)

mail_list <- lapply(1:nrow(student_dt), function(i){
  row <- student_dt[i, ]
  glue("Hello {row$Name},
your code is {row$CODE}.

See you.")
})
names(mail_list) <- student_dt$Email

批量发信拓展 #

如果生成正文后需要直接批量发送，可以搭配emayili或者blastula包配置SMTP发信服务，核心逻辑就是遍历刚才生成的mail_list，逐个传入对应收件人邮箱、正文内容调用发送函数即可。
注意：批量发信时建议加1-2秒的发送间隔，避免被邮箱服务商判定为垃圾邮件拦截。

内容的提问来源于stack exchange，提问作者José Carlos Rojas