不说啥了，代码很简单，稍微修改一下就可以用了。利用mailR的send.mail函数就可以了
date <- Sys.Date() #因为是要每天运行
date_time <- format(Sys.time(),format="%Y-%m-%d %H") #因为要每天每小时运行
path <- paste0("/共享文件/",date,'所有日报/','贷后数据/',date,'行动量/电销催收行动量明细',date_time,'.xlsx') #邮件要发送的附件地址
mailR::send.mail(
from = 'XXX@163.com', # 发送人
to = c('XXX@dingtalk.com','XXX@dingtalk.com','XXX@dingtalk.com','XXX@dingtalk.com'), # 接收人
#cc = 'carboncopy@tuandai.com', # 抄送人
subject = paste0("电销催收行动量明细",date_time), #邮件题目
body = as.character(
'<div style = "color:red">电销催收行动量明细数据，请查收</div>'
), #邮件正文
attach.files = c(path), # 附件的路径
encoding = "utf-8",
smtp = list(
host.name = 'smtp.163.com', # 邮件服务器IP地址
port = 25, # 邮件服务器端口
user.name = 'XXX@163.com', # 发送人名称
passwd = 'XXXX', # 163邮箱授权码
ssl = T),
html = T, inline = T, authenticate = T, send = T, debug = F
)
