如何用R语言批量生成带个性化称呼的多段落邮件正文

1. 正确生成带个性化开头的多段落正文 #

先把邮件正文拆分成独立段落，通过换行符(\n)和空行分隔结构，再用sprintf实现个性化替换，避免生硬拼接导致的格式混乱：

# 定义收件人列表
recipients <- c("Gandalf", "Saruman", "Sauron")

# 定义邮件段落内容
para1 <- "When Mr. Bilbo Baggins of Bag End announced that he would shortly be celebrating his eleventy-first birthday with a party of special magnificence, there was much talk and excitement in Hobbiton."
para2 <- "Bilbo was very rich and very peculiar, and had been the wonder of the Shire for sixty years, ever since his remarkable disappearance and unexpected return."

# 构建带占位符的邮件模板，用\n控制换行，空行分隔段落
email_template <- paste(
  "Dear %s,",
  "",  # 空行分隔称呼和正文第一段
  para1,
  "",  # 空行分隔两个段落
  para2,
  sep = "\n"
)

# 批量生成个性化正文
personalized_bodies <- lapply(recipients, function(name) sprintf(email_template, name))

执行后personalized_bodies的每个元素就是格式规范的邮件正文，包含正确的称呼和段落分隔。

2. 从TXT文件读取正文并保留格式 #

如果正文保存在TXT文件中，要使用readLines完整读取所有行（包括空行），再拼接成带换行的文本，避免格式丢失：

# 读取TXT文件，保留所有行（含空行）
raw_body_lines <- readLines("email_body.txt")

# 构建带个性化占位符的模板
file_based_template <- paste(
  "Dear %s,",
  "",
  paste(raw_body_lines, collapse = "\n"),  # 拼接读取的行，保留原换行结构
  sep = "\n"
)

# 生成个性化正文
personalized_file_bodies <- lapply(recipients, function(name) sprintf(file_based_template, name))

注意：TXT文件内的段落要通过空行分隔，这样读取后才能保留段落结构。

3. 邮件发送时确保格式生效 #

不同R邮件包对格式的支持略有差异，核心是传递带正确换行的文本：

• 纯文本邮件：直接将personalized_bodies中的字符串传入body参数，邮件客户端会识别\n为换行，空行为段落分隔（比如sendmailR包的sendmail函数）。
• HTML格式邮件：如果需要更美观的排版，可将文本转换为HTML结构，比如把段落用<p>标签包裹：

# 构建HTML模板
html_template <- paste(
  "<p>Dear %s,</p>",
  "<p>", para1, "</p>",
  "<p>", para2, "</p>",
  sep = ""
)
personalized_html <- lapply(recipients, function(name) sprintf(html_template, name))

发送时指定HTML格式参数（比如mailR包的send.mail函数设置html = TRUE）。

你原有代码的问题 #

• 用paste直接拼接称呼和正文时，没有添加换行符，导致所有内容挤在一起；
• 读取TXT文件时可能未正确保留原文件的换行和空行，导致格式混乱。

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