library(mailR)
sender <- c("发送邮箱")
recipients <- c("接收邮箱")
send.mail(from = sender,
to = recipients,
encoding = 'utf-8',
subject = "自动化报告",
body = "数据报表",
smtp = list(host.name = "smtp.ym.163.com", port = 25,
user.name = "发送的邮箱",
passwd = "密码", ssl = TRUE),
authenticate = TRUE,
send = TRUE,
attach.files = f2 #添加文件
)