利用R进行邮件发送

不说啥了，代码很简单，稍微修改一下就可以用了。利用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 = '[email protected]', # 发送人
  to = c('[email protected]','[email protected]','[email protected]','[email protected]'), # 接收人
  #cc = '[email protected]', # 抄送人
  subject = paste0("电销催收行动量明细",date_time), #邮件题目
  body = as.character(
    '
电销催收行动量明细数据，请查收
'
  ), #邮件正文
  attach.files = c(path), # 附件的路径
  encoding = "utf-8",
  smtp = list(
    host.name = 'smtp.163.com', # 邮件服务器IP地址
    port = 25, # 邮件服务器端口
    user.name = '[email protected]', # 发送人名称
    passwd = 'XXXX', # 163邮箱授权码
    ssl = T),
  html = T, inline = T, authenticate = T, send = T, debug = F
)