之前发邮件都是用的 mailR 包，这次我要强烈推荐另一个发邮件的包: blastula，首先，这个包不依赖 Java，带来的好处是省去了在你电脑上安装 Java 这一步，以及避免了后续 Java 版本更新可能会带来的兼容性问题；其次，推荐这个包最主要的原因是：这个包可以很容易的在邮件正文部分嵌入 R Markdown 渲染的内容，方便成果分享。关于这个包更多的细节，请查看这个包在 GitHub 上的源码¹，在此就不再赘述了，这里仅从用户层面分享一个笔者应用该包发邮件的例子，代码如下:

创建许可证

生成许可证的代码只需运行一次即可，许可证文件（访问 SMTP 服务器的唯一凭证）会自动存储在你的电脑里。生成许可证代码如下：

# 加载相关 R 包
library(keyring)
library(blastula)

# 创建许可证
create_smtp_creds_key(
  id = "outlook",  # 帮助文档是以 Gmail 为例的，这里以 Outlook 为例。
  user = "xxxxxxxx@outlook.com",  # 这里填入你的邮件地址
  provider = "outlook"
)

运行以上代码后，会弹出一个对话框要求你输入邮箱登陆密码，输入后提交即可。创建许可证的另一种方式是使用 create_smtp_creds_file() 函数，具体请运行 ?blastula::create_smtp_creds_file 查看该包帮助文档。

需要说明的是，这个包不光支持 Gmail 和 Outlook，事实上该包对国内用户常用的 QQ 邮箱、163 邮箱和新浪邮箱等也是支持的。各类邮箱 POP3 和 SMTP 服务器地址和端口可以参考这篇博客：各类邮箱 POP3 和 SMTP 服务器地址和端口²。

定义邮件各要素

以下代码请保存在一个 .R 格式的文件中，如 MAIN.R，定义好邮件各要素后，运行 MAIN.R 即可发送邮件。注：笔者建议所有涉及文件保存在一个 Poject 下面，方便管理。

# 填写收件人姓名
receiver = "张三"  # 后面 sendmail.R 中笔者会处理收件人和邮箱地址的关系

# 填写邮件主题
subject = "这是一封测试邮件"

# 填写附件及路径信息
attachment = "path/to/附件"  # 附件必须包含后缀，如果没有附件，引号内留空即可。

# 填写邮件正文所对应的.Rmd文件信息
body = "path/to/body.Rmd"  # 这个 Rmd 文件渲染后就是邮件的正文

# 上面四个变量为利用 sendmail.R 发邮件时需要自定义的变量
source("sendmail.R")

定义邮件正文

邮件正文是通过上面提到的 body.Rmd 文件渲染得到，以下是一个 body.Rmd 文件的例子。

---
title: "来自楚新元的问候"
output: blastula::blastula_email
--- 

亲爱的朋友：

  您好！近期您可能对**风速和气温之间的关系**比较关注，这里我做了一张图，供参考。顺祝心情愉快，一切顺利！

```{r}
#| warning: false
#| message: false
#| echo: false
#| fig.cap: '风速和气温线性拟合图'
#| fig.align: 'center'
library(ggplot2)
library(RColorBrewer)
myColors = c(brewer.pal(5, "Dark2"), "black")
ggplot(airquality, aes(Wind, Temp, col = factor(Month))) +
  geom_point() +
  geom_smooth(method = lm, se = FALSE, aes(group = 1, col = "All")) +
  geom_smooth(method = lm, se = FALSE) +
  scale_color_manual("Month", values = myColors)
```

参考来源：慕课网。更多信息请参[这里](https://www.imooc.com/video/11582)    

----

楚新元    
新疆财经大学  博士研究生    
地址：新疆乌鲁木齐市北京中路 449 号    
邮编：830012    
个人主页：https://cxy.cc/    
Email：i@cxy.cc    

以上 body.Rmd 文件渲染后的效果如下：

需要指出的是 body.Rmd 文件的 output 参数可以不是 blastula::blastula_email，如：设置为 rmarkdown::html_document 也是可以的，body.Rmd 文件内容请读者自行定制即可。

定义 sendmail.R 文件

以上部分都是发邮件的准备工作，sendmail.R 文件才是发邮件的最关键部分，由于这部分一旦定义好以后基本不需要每次调整，所以笔者把它放在最后说明。

笔者把联系人放在 contact.xlsx 文件中，contact.xlsx 文件里有两个字段：name 和 address，如果上文提到的收件人“张三”不在 contact.xlsx 文件中，则需要先把“张三”及邮件地址维护进 contact.xlsx 文件里。

# 定义用户（发件人邮箱）
from = "xxxxxxxx@outlook.com"

# 处理收件人和收件人邮箱地址关系
contact = readxl::read_xlsx("path/to/contact.xlsx")  # 读取联系人姓名和邮箱地址
to = contact$address[contact$name == receiver][1]  # 根据姓名自动匹配邮件地址

# 渲染邮件内容并添加附件，可能有附件也可能没有附件
library(blastula)
if (attachment == "") {
  render_email(body) -> email
} else {
  render_email(body) %>% 
    add_attachment(file = attachment) -> email
}

# 发送邮件
smtp_send(
  from = from,
  to = to,
  subject = enc2utf8(subject),  # 处理中文主题乱码问题
  email = email,
  credentials = creds_key(id = "outlook") 
)

一切准备就绪，你只需要运行 MAIN.R 文件即可发邮件。

最后，需要说明的是：这篇文章主要参考了 RStudio Blog 上发表的一篇关于 blatula 包的博文。 具体请看这里：https://blog.rstudio.com/2019/12/05/emails-from-r-blastula-0-3/。