不說啥了，代碼很簡單廓握，稍微修改一下就可以用了。利用mailR的send.mail函數(shù)就可以了
date <- Sys.Date() #因?yàn)槭且刻爝\(yùn)行
date_time <- format(Sys.time(),format="%Y-%m-%d %H") #因?yàn)橐刻烀啃r(shí)運(yùn)行
path <- paste0("/共享文件/",date,'所有日?qǐng)?bào)/','貸后數(shù)據(jù)/',date,'行動(dòng)量/電銷催收行動(dòng)量明細(xì)',date_time,'.xlsx') #郵件要發(fā)送的附件地址
mailR::send.mail(
from = 'XXX@163.com', # 發(fā)送人
to = c('XXX@dingtalk.com','XXX@dingtalk.com','XXX@dingtalk.com','XXX@dingtalk.com'), # 接收人
#cc = 'carboncopy@tuandai.com', # 抄送人
subject = paste0("電銷催收行動(dòng)量明細(xì)",date_time), #郵件題目
body = as.character(
'<div style = "color:red">電銷催收行動(dòng)量明細(xì)數(shù)據(jù)台舱，請(qǐng)查收</div>'
), #郵件正文
attach.files = c(path), # 附件的路徑
encoding = "utf-8",
smtp = list(
host.name = 'smtp.163.com', # 郵件服務(wù)器IP地址
port = 25, # 郵件服務(wù)器端口
user.name = 'XXX@163.com', # 發(fā)送人名稱
passwd = 'XXXX', # 163郵箱授權(quán)碼
ssl = T),
html = T, inline = T, authenticate = T, send = T, debug = F
)
