R语言执行FOR循环调用RDComclient发邮件如何避免重复发送

核心原因排查 #

• 存在未注意到的嵌套循环：你贴出的邮箱遍历代码外层大概率还有一层遍历数据集行数的循环，导致总执行次数为nrow(df)*nrow(df)，每个邮箱地址会被遍历n次，对应收到n封邮件，这是最常见的触发原因。
• 邮箱列存在重复值：数据集的Mail_id列可能存在隐藏的重复值，导致同一邮箱被多次遍历。
• 邮件属性赋值不规范：新建邮件对象后未主动清理残留值，或误用cc字段导致收件人累加。

修复后可直接运行的代码 #

# 加载依赖包，仅初始化一次Outlook应用
library(RDCOMClient)
outApp <- COMCreate("Outlook.Application")

# 先对邮箱列去重，再做单层遍历
for (mail in unique(df$Mail_id)) {
  # 每次循环新建空白邮件对象，避免属性残留
  outMail <- outApp$CreateItem(0)
  # 收件人赋值给to字段，如需抄送再修改为cc
  outMail[["to"]] <- mail
  # 可补充邮件主题、正文内容
  outMail[["subject"]] <- "通知邮件"
  outMail[["body"]] <- "您好，这是自动发送的通知邮件。"
  # 发送邮件
  outMail$Send()
  # 主动释放当前邮件对象，清除内存残留
  rm(outMail)
  gc()
}

# 全部发送完成后释放Outlook应用对象
rm(outApp)
gc()

额外注意事项 #

• 发送前可先将outMail$Send()替换为outMail$Display()，预览生成的邮件收件人是否符合预期，确认无误后再切换为发送逻辑，避免批量发错邮件。
• 若公司邮箱有发送频率限制，可在循环末尾加Sys.sleep(2)，每封邮件间隔2秒发送，避免触发风控。

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